Doug,

Sub deleterowswithblankcells()
Dim cell As Range

Sheets("sheet1").Activate 'replace sheet1 with your sheet name
For Each cell In ActiveSheet.Range("A1:E20") 'replace A1:E20 with
your range
If cell.Value = 0 Then
ActiveSheet.Rows(cell.Row).Delete (xlUp)
End If
Next
End Sub

This should work.If you just want to delete rows with a value of 0 in
column E then change the range to E1:E1000 or whatever.