[vba] Kompilacja danych ze wszystkich plików w katalogu

Serwus,

chciałbym prosić Was o pomoc w stworzeniu następującego makra:

1. Przygotowanie listy wszystkich plików z danego katalogu (którego ścieżkę wklejam do komórki A1)
2. Otwarcie każdego pliku z listy i skopiowanie do nowego pliku danych z range'a ("A27:M1319") jedne pod drugimi

O ile z punktem 1. poradziłem sobie raczej bez problemu, to za chorobę nie mogę rozwiązać pkt 2.
Poniżej moje wypociny:

Public Sub ListaPlikow()

Dim Katalog As String
Dim NazwaPliku As String
Dim IndexSheet As Worksheet
Dim KolejnyWiersz As Long
Dim WklejWiersz As Long
Dim CopyRange As Range
Dim i As Long
Dim NowyWorkbook As Workbook
Dim SourceWorkbook As Workbook

i = 3
KolejnyWiersz = 3
WklejWiersz = 1


Set IndexSheet = ThisWorkbook.ActiveSheet
Katalog = Range("A1").Value
Katalog = Katalog & "\"

NazwaPliku = Dir(Katalog & "*.xls")

Do While NazwaPliku <> ""
IndexSheet.Cells(KolejnyWiersz, 1).Value = NazwaPliku
KolejnyWiersz = KolejnyWiersz + 1
NazwaPliku = Dir
Loop

Set NowyWorkbook = Workbooks.Add

Do While i = KolejnyWiersz
Set SourceWorkbook.Name = ThisWorkbook.ActiveSheet.Cells(i, 1)

Set CopyRange = SourceWorkbook.Range("A27:M1319")
CopyRange.Copy Destination:=NowyWorkbook.ActiveSheet.Cells(WklejWiersz, 1)

WklejWiersz = WklejWiersz + 1293
i = i + 1
Loop

End Sub

Link