Maybe something like:

Option Explicit
Sub testme()

   Dim rng As Range
   Dim wks As Worksheet
   Dim myCell As Range
   Dim DelRng As Range
   
   Set wks = Worksheets("Sheet1")
   
   With wks
       Set rng = .Range("B2", .Cells(.Rows.Count, "B").End(xlUp))
   End With
   
   For Each myCell In rng.Cells
       If IsEmpty(myCell) = False Then
           If myCell.Value = 0 Then
               If DelRng Is Nothing Then
                   Set DelRng = myCell
               Else
                   Set DelRng = Union(myCell, DelRng)
               End If
           End If
       End If
   Next myCell
   
   If DelRng Is Nothing Then
       'do nothing
   Else
       DelRng.Select
       'or (after testing!)
       'DelRng.EntireRow.Delete
   End If
   
End Sub