Sub Selectloeschen()

'Funktionierendes Makro, welches die unerwünschten zeilen mit select löscht

Dim rng As Range                                                    ' variablen definition
Dim loDeinWert As String
Dim sFirstadress As String


loDeinWert = "select"                                                ' gesuchtes Wort

Set rng = Worksheets("Tabelle2").Range("A1:A14924").Find(loDeinWert)      ' Range eingabe

If rng Is Nothing Then
  MsgBox "Wort " & loDeinWert & " nicht gefunden!"                  ' Falls es nicht gefunden wird
Else
  sFirstadress = rng.Address                                        ' Range Addressierung
  Do
    rng.EntireRow.Delete                                              ' Läschen der Zeile

    Set rng = Worksheets("Tabelle2").Range("A1:A14924").FindNext(rng)
  Loop While Not rng Is Nothing And rng.Address <> sFirstadress     ' Nichtgleich
End If

End Sub

Nach dem ausführen wird die erste Zeile die gefunden wird gelöscht, aber kriege danach den Fehler das die FindNext Eigenschaft des Range Objekts nicht zugeordnet werden kann.

Wer kann mir denn da Helfen?