Sub kopiowanie()
Dim wierszy_ile As Long, wiersz_gdzie, docel As Workbook

Set docel = Workbooks.Add  'nowy skoroszyt do zbierania danych

wiersz_gdzie = 2
With ThisWorkbook.Sheets("Arkusz1")
wierszy_ile = .Columns("A:K").Find(What:="*", After:=.Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Range(.Cells(1, 1), .Cells(wierszy_ile, 11)).Copy docel.Sheets(1).Cells(wiersz_gdzie, 1)
End With
'...........................................................................................................................
wiersz_gdzie = wiersz_gdzie + wierszy_ile
With ThisWorkbook.Sheets("Arkusz2")
wierszy_ile = .Columns("A:K").Find(What:="*", After:=.Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Range(.Cells(1, 1), .Cells(wierszy_ile, 11)).Copy docel.Sheets(1).Cells(wiersz_gdzie, 1)
End With
'...........................................................................................................................
wiersz_gdzie = wiersz_gdzie + wierszy_ile
With ThisWorkbook.Sheets("Arkusz3")
wierszy_ile = .Columns("A:K").Find(What:="*", After:=.Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Range(.Cells(1, 1), .Cells(wierszy_ile, 11)).Copy docel.Sheets(1).Cells(wiersz_gdzie, 1)
End With

End Sub