Hi

try

Code:
Sub kTest()
    
    With Intersect(ActiveSheet.UsedRange, Range("b:b"))
        On Error Resume Next
        .Replace "0", vbNullString, 1
        .SpecialCells(4).EntireRow.Delete
    End With
    
End Sub