Wenn Zeile nicht existiert dann einfügen

Sub ZeileEinfuegen()
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Dim rng As Range
Dim lngZeile As Long, lngZeileMax As Long
Dim lngZeileEinfuegen As Long
Set wsQuelle = Worksheets("Tabelle1")
Set wsZiel = Worksheets("Tabelle2")
'Letzte beschriebene Zelle in Spalte 3 von Import_user
lngZeileMax = wsQuelle.Cells(Rows.Count, 2).End(xlUp).Row
'letzte beschriebene Zelle in Spalte 2 von Datenbank
lngZeileEinfuegen = wsZiel.Cells(Rows.Count, 2).End(xlUp).Row
'Gehe durch alle Eingaben von Import_user
For lngZeile = 2 To lngZeileMax
'Ist der Eintrag bereits in der Datenbank enthalten?
Set rng = wsZiel.Columns(2).Find(What:=wsQuelle.Cells(lngZeile, 2).Value, LookAt:=xlWhole)
'Wenn der datensatz nicht vorhanden ist,...
If rng Is Nothing Then
'dann in die nächste Zeile
lngZeileEinfuegen = lngZeileEinfuegen + 1
'und füge den Inhalt ein.
wsZiel.Cells(lngZeileEinfuegen, 1).Value = wsQuelle.Cells(lngZeile, 3).Value
End If
Next
End Sub