Stor mængde data

Hej!
Jeg forsøger med denne kode, at hente data ind i Excel ark fra et andet excel-ark placeret andet sted´...

Sub HentData()
Dim myWorkbook = Application.Workbooks.Open(Filename:="C:\test\qry_test")
Cells(1, 1).Activate
ActiveCell.CurrentRegion.Copy

ThisWorkbook.Sheets("Data").Activate
Cells(5, 1).Activate
ActiveCell.PasteSpecial

myWorkbook.Close
End sub

Problemet er, at Excel kommer med en dialogboks når der er en stor mængde data.... Kan man komme uden om denne dialogboks og hvordan.....

M.v.h. Lars