Sub СкрытьИпоказатьСтроки()  ' перебор ячеек диапазона i10:i54 в поисках цифр
    Dim cell As Range, delra As Range, showra As Range
    Application.ScreenUpdating = False

    For Each cell In Range("i10:i54").Cells
        If cell Like 0 Then ' если ячейка содержит хоть одну цифру - удаляем строку
            If delra Is Nothing Then Set delra = cell Else Set delra = Union(delra, cell)
        End If
        If cell <> 0 Then ' если не ноль - показываем строку
            If showra Is Nothing Then Set showra = cell Else Set showra = Union(showra, cell)
        End If
    Next

    If Not delra Is Nothing Then delra.EntireRow.Hidden = True    ' скрываем их
    If Not showra Is Nothing Then showra.EntireRow.Hidden = False    ' показываем их

    Application.ScreenUpdating = True
End Sub