Experimente a macro Main () :
Sub MAIN()
Dim rng As Range, v As Variant
Set rng = Range("B1")
v = 0
Call RowKiller(rng, v)
End Sub
Sub RowKiller(r As Range, v As Variant)
If r.Value = v Then
r.EntireRow.Delete
End If
End Sub