Deleting rows by criteria

I just can't quite get the sub can one one give me a hand?
I want to delete all rows that have a 0 in column E

Hello Robert,

Here is a Sub to delete all Rows with 0 in column E.

Private Sub DeleteRowIfZero()

Dim R As Long

R = 1

Do
With Cells(R, "E")
If IsEmpty(.Value) Then Exit Do
If IsNumeric(.Value) Then
If .Value = 0 Then
.Delete (xlShiftUp)
R = R - 1
End If
End If
R = R + 1
End With
Loop

End Sub

Sincerely,
Leith Ross