Tabellenvergleich per VBA

Sub REG_Suchen_und_einfügen()
Dim wksT1 As Worksheet, wksT2 As Worksheet, _
rng As Range, rFind As Range
On Error GoTo errorhandler
Application.ScreenUpdating = False
Set wksT1 = Sheets("Tabelle1") 'Tabellenname anpassen!
Set wksT2 = Sheets("Tabelle2") 'Tabellenname anpassen!
For Each rng In wksT1.Range("B1:B" & wksT1.Cells(65536, 1).End(xlUp).Row)
If rng <> "" Then
Set rFind = wksT2.Range("A1:A").Find(rng)
If Not rFind Is Nothing Then
wksT1.Cells(rng.Row, 3).Value = wksT2.Cells(rFind.Row, 2).Value
End If
End If
Next rng
errorhandler:
Application.ScreenUpdating = True
End Sub