Option Explicit
Dim aRez

Sub Sample01()
Dim fPath As String, nRw&

fPath = ThisWorkbook.Path
'получаем данные из книги Экспорт данных.xlsx, Лист1, диапазон A:G
If Right(fPath, 1) <> "\" Then fPath = fPath & "\[Экспорт данных.xlsx]" Else _
 fPath = fPath & "[Экспорт данных.xlsx]"
'сколько строк в 1-м столбце
Range("A1").Formula = "=COUNTA('" & fPath & "Лист1'!A:A)"
nRw = Range("A1").Value
'получаем массив A:G от 1-й до последней строки по ст. А
Range("A1").Formula = "=ToArray('" & fPath & "Лист1'!A1:G" & nRw & ")"
'выгружаем на лист
Range("B1").Resize(UBound(aRez), UBound(aRez, 2)).Value = aRez

Range("A1").Clear
If IsArray(aRez) Then Erase aRez
End Sub

Private Function ToArray(ref)
 aRez = ref
End Function