Sub EintraegeKopieren()
Dim ws As Worksheet
Dim wsTarget As Worksheet
Dim rngSource As Range
Dim i As Integer, j As Integer
Dim lr As Long, lrTarget As Long, col As Long
Set wsTarget = Sheets("Gesamtliste")
For i = 3 To 53
Set ws = Sheets(i)
lrTarget = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row
With ws
lr = .Cells(Rows.Count, 1).End(xlUp).Row
If lr >= 20 Then
For j = 20 To lr
Set rngSource = .Range(.Cells(j, 1), .Cells(j, 18))
rngSource.Copy Destination:=wsTarget.Cells(lrTarget + 1, 1)
lrTarget = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row
Next j
End If
End With
Next i
End Sub