Zellen löschen wenn im Bereich eintrag gemacht wi

Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies                                     *
'* 13.10.11                                       *
'* erstellt von HajoZiplies@web.de                *
'* www.Hajo-Excel.de
Dim RaBereich As Range                 ' Variable Bereich
Dim RaZelle As Range                   ' Variable Zelle
Dim lngZ As Long                       ' Zeile der Zelle
' nur die Zellen prüfen die im überwachten Bereich liegen
Set RaBereich = Intersect(Range("H4:I33"), Target)
' falls nicht gefunden wird Sub verlassen
If Not RaBereich Is Nothing Then
' Reaktion auf Zellveränderung abschalten
Application.EnableEvents = False
' Schleife über die geänderten Zellen des überwachten Bereichs
For Each RaZelle In RaBereich
lngZ = RaZelle.Row
' Hier brauche ich den neue Code-schnipsel
' hier soll nun Im Blatt Programm Zellen c4:c33 gelöscht werden,
' wenn hier im Blatt Eingabe-Verbaut(active Blatt)im RABereich (oben defeniert)
' ein "x" eingetragen wird.
End If
Next RaZelle
' Reaktion auf Zellveränderung einschalten
Application.EnableEvents = True
End If
Set RaBereich = Nothing                 ' Variable leeren
End Sub