Reihen löschen

ich habe folgendes Makro:

Sub ReihenOhneVerbrauchLöschen()
Dim intRow As Integer
intRow = Cells(Rows.Count, 1).End(xlUp).Row
For z = 2 To intRow
If Cells(z, 4).Value >= 0 Then .....?????
Next
End Sub

Nun möchte ich das jede Reihe abgefragt wird und wenn der Wert in Spalte 4 > oder = 0 ist, soll die ganze Reihe komplett gelöscht werden. Wie funktioniert das?

Danke und gruss,
Christian