Falls x vorhanden ist soll Zeile Y gelöscht werden! Geht das?
Sub Suchen()
Dim cc As Range
For Each cc In Range("H24:H30")
' If cc = X15 Then ' sucht nach dem Inhalt der Zelle X15
If cc = "X15" Then ' sucht nach der Zeichenkette "X15"
Range("Bereich1").Clear ' löscht Inhalte und Formate
' Range("Bereich1").ClearContents ' löscht nur Inhalte
' Range("Bereich1").Delete xlShiftUp ' löscht Bereich
' Range("Bereich1").Delete xlShiftToLeft ' löscht Bereich
Exit For
End If
Next cc
End Sub