Fehler im Code

Sub Test()
Dim lngRow As Long
Dim lngColumn As Long
Dim DateRow As Long
With Worksheets("Import2")
For lngRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
For lngColumn = 3 To Worksheets("Tabelle2").Cells(1, .Columns.Count).End(xlToLeft).Column
For DateRow = 8 To Worksheets("Tabelle2").Cells(.Rows.Count, 1).End(xlUp).Row Step 24
If .Cells(lngRow, 1).Value = Worksheets("Tabelle2").Cells(1, lngColumn).Value Then
If .Cells(lngRow, 8).Value = Worksheets("Tabelle2").Cells(DateRow,1).Value Then
'wenn beide If Bedingungen stimmen, dann:
.Range(.Cells(lngRow, 10), .Cells(lngRow, 33)).Copy
Worksheets("Tabelle2").Cells(DateRow, 3).PasteSpecial Paste:= _
xlPasteValues, Transpose:=True
Else
'Wenn "If .Cells(lngRow, 8).Value = Worksheets("Tabelle2").Cells( _
DateRow, 1).Value Then" nicht stimmt:
'Dann nächste Zeile in Tabelle2 Prüfen
Next DateRow
End If
Else
'wenn "If .Cells(lngRow, 1).Value = Worksheets("Tabelle2").Cells(1,lngColumn).Value  _
Then" nicht stimmt:
Next lngColumn
End If
Next lngRow
End With
End Sub