Zeilen aus mehreren Tabellen in eine neue kopieren

Sub CommandButton1_Click()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lRow As Long, lastRow As Long, myRow As Long
Dim lastCol As Integer
On Error GoTo ERRORHANDLER
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With
Set wks1 = Sheets("Montag")
Set wks2 = Sheets("Neue Tabelle")
myRow = 3 'Startzeile in neue Tabelle
lastCol = 8 'Letzte Spalte mit Daten in Montag
For lRow = 1 To lastRow
If wks1.Cells(lRow, 4) = "Kriterium" Then
'Daten kopieren
wks1.Range(wks1.Cells(lRow, 1), wks1.Cells(lRow, lastCol)). _
Copy wks2.Cells(myRow, 2)
myRow = myRow + 1
End If
Next
ERRORHANDLER:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub