Was ist das?

Sub Vergleich2()
Dim i As Integer
Dim J As Integer
For i = 1 To Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
For J = 1 To Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
If Worksheets("Tabelle1").Cells(J, 1).Cells = Worksheets("Tabelle2").Cells(i, 1) Then
Worksheets("Tabelle1").Rows(J).Copy _
Destination:=Worksheets("Tabelle3").Range("A" & Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
Next J
Next i
End Sub