Hello everyone

First off the code:
Sub Get_Data()
    Workbooks.Open Filename:="C:\work\A.xlsx"
    Windows("Main.xlsm").Activate
    Sheets("Sheet1").Select
    Range("A1:ET2000").Select
    Selection.FormulaR1C1 = "=[A.xlsx]Sheet1!R1C1:R2000C150"
End Sub
With this code, I write all Data from Sheet1 in A.xlsx into Sheet1 in Main.xlsx.
It is working perfectly with one exception.

If, e.g. in A.xlsx there are empty cells, the cells in Main.xlsx show zeros (=0).

How could I make it that empty cells in A show as empty cells in Main?

Help is much appreciated
Cheers