Помогите, пожалуйста, скрыть строки при определенном условии

[axaptaalex]

Доброе время суток!
Помогите, пожалуйста, скрыть строки
См.влож.файл

[EducatedFool]

Так подойдёт?

(хотя для таких целей больше подходит автофильтр...)

[axaptaalex]

Строчку 9 надо скрыть потому что продукция состоящая из трех ТМЦ не производилась (в столбце D "норма" = 0).А строчку 13 необходимо оставить

[EducatedFool]

Тогда так:

Sub СкрытьСтроки()
    Dim row As Range: Application.ScreenUpdating = False
    For Each row In ActiveSheet.UsedRange.EntireRow
        row.Hidden = IsNumeric(row.Cells(1)) And row.Cells(4) = 0 And Trim(row.Cells(1)) <> ""
    Next row
    For Each row In ActiveSheet.UsedRange.EntireRow
        If Not row.Hidden Then If row.Offset(1).Hidden Then row.Hidden = True
    Next row
End Sub

Sub ОтобразитьВсеСтроки()
    ActiveSheet.UsedRange.EntireRow.Hidden = False
End Sub

Пример во вложении:

[axaptaalex]

огромнейшее спасибо!!!