VBA - kopiowanie danych

Cześć,

Chciałabym napisać kod za pomocą którego będę mogła kopiować naraz z różnych excelów ich całą zawartość, ale o różnej wielkości wierszy. Niestety nie wiem jak to zrobić i poprawić kod.
Będę bardzo wdzięczna jeśli ktoś będzie tak miły i zechce mi pomóc :)
A oto poniższy kod:

Sub ImportBudżetu()
Dim Zbior As Variant
Dim Plik As Variant
Dim Baza As Worksheet
Dim Budżet As Worksheet
Dim NowyWiersz As Long
Set Baza = Sheets("BAZA")
NowyWiersz = Application.WorksheetFunction.CountA(Columns(1))
 Zbior = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "Wybierz plik(i) ankiety", , True)
For Each Plik In Zbior
Workbooks.Open Filename:=Plik
Set Budżet = ActiveSheet
        Baza.Cells(NowyWiersz, 1).Value = Budżet.Cells(2, 1).Value   
        Baza.Cells(NowyWiersz, 2).Value = Budżet.Cells(2, 2).Value     
        Baza.Cells(NowyWiersz, 3).Value = Budżet.Cells(2, 3).Value     
        Baza.Cells(NowyWiersz, 4).Value = Budżet.Cells(2, 4).Value 
ActiveWorkbook.Close
NowyWiersz = NowyWiersz + 1
Next Plik
Exit Sub
End Sub