Option Explicit
Sub Selectloeschen()
Dim rng As Range
Dim loDeinWert As String
Dim sFirstadress As String
Dim objUnion As Range
loDeinWert = "select"
Set rng = Worksheets("Tabelle2").Range("A1:A14924").Find(What:=loDeinWert, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Wort " & loDeinWert & " nicht gefunden!"
Else
sFirstadress = rng.Address
Do
If objUnion Is Nothing Then
Set objUnion = rng
Else
Set objUnion = Union(objUnion, rng)
End If
Set rng = Worksheets("Tabelle2").Range("A1:A14924").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> sFirstadress
End If
Call objUnion.EntireRow.Delete
End Sub