Sub marta()
Dim Dukt As String, plik As String, i As Long, wiersz As Long
Dim skoro As Object
i = 1
Dukt = "C:\Documents and Settings\Admin\Moje dokumenty\Pobieranie\"
plik = Dir(Dukt & "*.csv")
Do
If plik = "" Then Exit Do
Set skoro = GetObject(Dukt & plik)
With skoro.Worksheets(1)
wiersz = .Cells.Find(What:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If i = 1 Then .Range(.Cells(1, 1), .Cells(1, 23)).Copy ThisWorkbook.Sheets("Zestawienie").Cells(i, 1): i = i + 1

.Range(.Cells(2, 1), .Cells(wiersz, 23)).Copy ThisWorkbook.Sheets("Zestawienie").Cells(i, 1)
i = i + wiersz - 1
 skoro.Close False

plik = Dir
End With
Loop
Set skoro = Nothing
End Sub