If column dont contain 0 then delete row

as an option

Sub DelSpecificRow()
Dim r As Range, s As String
Application.ScreenUpdating = 0
s = "*, 0*": On Error Resume Next
With Range("H1", Cells(Rows.Count, 8).End(xlUp))
    For Each r In .Cells
        If Not r Like s Then r = Empty
    Next r
    .SpecialCells(4).EntireRow.Delete
End With
Application.ScreenUpdating = 1
End Sub