Sub kopieren()
Dim tabQ As Worksheet, tabZ As Worksheet
Dim letzteZQ As Long, letzteZZ As Long, WSAnzahl As Long, a As Long
WSAnzahl = ThisWorkbook.Worksheets.Count
Set tabZ = ThisWorkbook.Sheets("Tabelle1")
For a = 2 To WSAnzahl
Set tabQ = ThisWorkbook.Sheets("Tabelle" & a)
With tabZ
letzteZZ = .Cells(Rows.Count, 1).End(xlUp).Row
letzteZQ = tabQ.Cells(Rows.Count, 1).End(xlUp).Row
tabQ.Range("A4:T" & letzteZQ).Copy
.Cells(letzteZZ + 1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
Next
End Sub