Sub DeleteCriteriaTest()
    Dim n As Long, LastRow As Long
    Dim myCrit As Range
    LastRow = Range("E" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
    For n = LastRow To 2 Step -1
        Set myCrit = Cells(n, 5)
        If myCrit.Value = 0 Then Rows(n).EntireRow.Delete
    Next n
Application.ScreenUpdating = True
End Sub

Option Explicit

Sub runMacro()
    Call DeleteRowswithValue(Cells(1, 1), 0)
End Sub

Sub DeleteRowswithValue(rngColumn As Range, iValue As Integer)
    Dim rngActive As Range
    Dim bFoundCell As Boolean
    
    'initalise bfoundcell
    bFoundCell = True
    
    Do Until Not bFoundCell
        'attempt to find the value
        Set rngActive = rngColumn.EntireColumn.Find(what:=iValue, lookat:=xlWhole)
        If Not rngActive Is Nothing Then
            rngActive.EntireRow.Delete
        Else
            bFoundCell = False
        End If
    Loop
    
    Set rngfoundcell = Nothing
End Sub