Laufzetfehler in VLookup Zeile

With Sheets("Tabelle1")
lz1 = .Cells(Rows.Count, 2).End(xlUp).Row                'letzte Zeile In Tabelle 1  _
bestimmen
lz2 = Cells(Rows.Count, 2).End(xlUp).Row                'letzte Zeile bestimmen
lz3 = Cells(Rows.Count, 3).End(xlUp).Row                'letzte Zeile bestimmen
For i = lz3 + 1 To lz2
Cells(lz3 + 1, 3) = Application.WorksheetFunction.VLookup(Cells(lz3 + 1, 2).Range(.Cells(7,  _
2), .Cells(lz1, 3)), 2, 0)
Next i
End With