Sverweis funktioniert nicht

Sub SVerweis_Kommentar()
lastRowD = Worksheets("Kommentar_Abzug2").Range("D" & Rows.Count).End(xlUp).Row
lastRowI = Worksheets("Tabell1").Range("I" & Rows.Count).End(xlUp).Row
Cells(59, 8) = Application.WorksheetFunction.VLookup(B59, Kommentar_Abzug2!Range("A1:D" &  _
lastRowD), 3, False)
Selection.AutoFill Destination:=Range("I59:I" & lastRowI), Type:=xlFillDefault
Hatte noch einen anderen Ansatz:
Hab mir jetzt noch gedacht, wenn ich einfach die Spalten vergleiche müsste es doch das gleiche  _
sein oder?
also Sprich: Vergleiche von Tabelle 1 Spalte B mit Tabelle 2 Spalte A und wenn in beiden das  _
gleiche steht dann schreib in Tabelle 1 Spalte I von Tabelle 2 Spalte D rein... Verständlich?
Mein Coding:

Sub Scheisse()
lastRowA = Worksheets("Kommentar_Abzug2").Range("A" & Rows.Count).End(xlUp).Row
lastRowB = Worksheets("Tabelle1").Range("B" & Rows.Count).End(xlUp).Row
i = 59
If Worksheets("Kommentar_Abzug2").Range("A2:A" & lastRowA).Value = Worksheets("Tabelle1").Range( _
"B59:B" & lastRowB).Value Then
Cells(i, "I").Value = Worksheets("Kommentar_Abzug2").Range("I59: I" & lastRowB)
End If
naja, und hier meldet mir der debugger, das die typen unverträglich sidn.... weiß nicht mehr  _
weiter...
End 

Sub
Danke schonmal... :)
Über Hilfe bin ich wirklich Dankbar...
Grüüüüüüüü´ßeeeeeeeee