Sub TabellenKopierenUntereinander()
Dim i As Integer
Dim letzteZQ As Long, letzteZZ As Long, letzteSQ As Long
With ThisWorkbook
.Worksheets.Add After:=.Worksheets(1)
For i = 3 To .Worksheets.Count
letzteZQ = .Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
letzteSQ = .Sheets(i).Cells(5, Columns.Count).End(xlToLeft).Column
letzteZZ = .Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
.Sheets(i).Range(.Sheets(i).Cells(5, 1), .Sheets(i).Cells(letzteZQ, letzteSQ)).Copy
.Sheets(2).Cells(letzteZZ + 1, 1).Paste
Application.CutCopyMode = False
Next
End With
End Sub