versch. Texte in Spalten suchen und lösc

Hallo,
kann mir jemand bitte weiterhelfen?
Ich suche hier in der Spalte D (bis zur letzten ausgefüllten Zelle in D) nach verschiedene Worte/Zahlen. Wenn was gefunden
wird, soll diese Zeile gelöscht werden. Kann man die Suche auch in eine Schleife zusammenfassen oder brauche ich für jeden
Begriff eine Schleife? Ich bin absoluter Laie und diese Schleife hier habe ich auch nur aus dem Internet.
Danke mal

Beispiel: If cell.Value Like "Dumm*" & "x" & "Erst*" Then cell.EntireRow.Delete funktioniert nicht.

Range(Range("D2"), Range("D2").End(xlDown)).Select
        For Each cell In Selection
            If cell.Value Like "Dumm*" Then cell.EntireRow.Delete
    Next
        
    Range(Range("D2"), Range("D2").End(xlDown)).Select
        For Each cell In Selection
            If cell.Value Like "x" Then cell.EntireRow.Delete
    Next
        
    Range(Range("D2"), Range("D2").End(xlDown)).Select
        For Each cell In Selection
            If cell.Value Like "DUMM*" Then cell.EntireRow.Delete
    Next
        
    Range(Range("D3"), Range("D3").End(xlDown)).Select
        For Each cell In Selection
            If cell.Value Like "ERST *" Then cell.EntireRow.Delete
    Next
            
    Range(Range("D3"), Range("D3").End(xlDown)).Select
        For Each cell In Selection
            If cell.Value Like "KONTROLLDORN*" Then cell.EntireRow.Delete
    Next