Hello,

In addition to what I've written before, here is the code I wrote:

Sub Dataacquire()
Workbooks.Open "data.xls"
Worksheets("sheet1").Range("b1:d19").Copy _
ThisWorkbook.Worksheets("sheet1").Range("b1:d19")
ActiveWorkbook.Close SaveChanges:=False
End Sub

My problem that empty cells are not copied as empty and
because of this I get an error messages in other worksheets (like #VALUE).

How Can I solve this problem ?

Thank you
David Cohen