Удаление строк с нулями

[Sensy]

Здравствуйте! Есть документ с таблицей, ячейки которой - ссылки на ячейки другого документа. Есть задача - удалить строки, в которых в столбце В - нулевое значение.
Написала макрос

Sub mac1()
With ActiveSheet

Dim MyRange As Range
Set MyRange = Range("B6:B55, B59:B108, B112:B161, B165:B214, B218:B267, B271:B320, B324:B373, B377:B426, B430:B479, B483:B532")
Dim var As Variant
For Each var In MyRange
If var = 0 Then
ActiveCell.EntireRow.Select
Selection.Delete
End If
Next var
End With
End Sub

работает неправильно во-первых проходит не весь диапазон, во-вторых удалет строки где В просто пустой (а нужно только где 0).
про диапазон есть мысль, что при удалении строк последняя просто перестает быть актуальной.
Посоветуйте, как написать макрос правильно?!

[SAS888]

Можно проверять: если ячейка не пуста, и если в ячейке число "0", то формировать диапазон из строк, содержащих такие ячейки. Затем одной командой удалить этот диапазон. Например, так:

Sub mac1()

    Dim MyRange As Range, x As Range
    Set MyRange = Range("B6:B55, B59:B108, B112:B161, B165:B214, B218:B267, B271:B320, B324:B373, B377:B426, B430:B479, B483:B532")
    For Each var In MyRange
        If var <> "" And var = 0 Then If x Is Nothing Then Set x = Rows(var.Row) Else Set x = Union(x, Rows(var.Row))
    Next
    If Not x Is Nothing Then x.Delete
    
End Sub

[Sensy]

SAS888 Спасибо большое, все работает так, как нужно!!

[Sensy]

По ходу возник еще один вопрос.. после выполнения макроса в поле В появляются строки со значением =СУММ(#ССЫЛКА!) и повторное выполнение макроса выкидывает ошибку в строке
If (var <> "" And var = 0) Then

как бы это обойти...?