Sub hide_rows()
    Application.ScreenUpdating = False
    For Each cel In Range("B16", Cells(Rows.Count, 2).End(xlUp))
        If cel.Interior.Color = 16777215 Then
            cel.EntireRow.Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Sub Hide_Empty_Rows()
    Dim rCell As Range, lColor&
    lColor = Me.[MYCOLOR].Interior.Color
    Application.ScreenUpdating = False
    For Each rCell In Range("B" & [MYCOLOR].Offset(1).Row, Cells(Rows.Count, 2).End(xlUp))
        If rCell.Interior.Color <> lColor Then
            rCell.EntireRow.Hidden = Not (Cells(rCell.Row, 4) + Cells(rCell.Row, 5))
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Sub Hide_Empty_Rows()
    Dim rCell As Range, lColor&
    lColor = [MYCOLOR].Interior.Color
    With Application: .ScreenUpdating = False: .EnableEvents = False: .DisplayAlerts = False: .Calculation = xlManual: End With
    For Each rCell In Range("B" & [MYCOLOR].Offset(1).Row, Cells(Rows.Count, 2).End(xlUp))
        If rCell.Interior.Color <> lColor Then
        rCell.EntireRow.Hidden = Not (Cells(rCell.Row, 4) + Cells(rCell.Row, 5))
        End If
    Next
    With Application: .ScreenUpdating = True: .EnableEvents = True: .DisplayAlerts = True: .Calculation = xlAutomatic: End With
End Sub

Sub Макрос1в()
For i = 24 To 31 'здесь ты задаёшь то количество строк которое тебе нужно у меня 50 однёрку не трогай это означает, что отбор будет с первой строки
If Cells(i, 4) = 0 Then Rows(i).Select 'а вот тут однёрка означает номер столбца в данном случае A если D будет цифра 4 и т.д. настрой Excel не на буквы а на цифры чтобы лучше ориентироваться
Selection.EntireRow.Hidden = True
Next i
End Sub
Sub Макрос2в()
For i = 36 To 66 'здесь ты задаёшь то количество строк которое тебе нужно у меня 50 однёрку не трогай это означает, что отбор будет с первой строки
If Cells(i, 4) = 0 Then Rows(i).Select 'а вот тут однёрка означает номер столбца в данном случае A если D будет цифра 4 и т.д. настрой Excel не на буквы а на цифры чтобы лучше ориентироваться
Selection.EntireRow.Hidden = True
Next i
End Sub
Sub Макрос3в()
For i = 68 To 71 'здесь ты задаёшь то количество строк которое тебе нужно у меня 50 однёрку не трогай это означает, что отбор будет с первой строки
If Cells(i, 4) = 0 Then Rows(i).Select 'а вот тут однёрка означает номер столбца в данном случае A если D будет цифра 4 и т.д. настрой Excel не на буквы а на цифры чтобы лучше ориентироваться
Selection.EntireRow.Hidden = True
Next i
End Sub
Sub Макрос4в()
For i = 73 To 82 'здесь ты задаёшь то количество строк которое тебе нужно у меня 50 однёрку не трогай это означает, что отбор будет с первой строки
If Cells(i, 4) = 0 Then Rows(i).Select 'а вот тут однёрка означает номер столбца в данном случае A если D будет цифра 4 и т.д. настрой Excel не на буквы а на цифры чтобы лучше ориентироваться
Selection.EntireRow.Hidden = True
Next i
End Sub
Sub Макрос5в()
For i = 86 To 91 'здесь ты задаёшь то количество строк которое тебе нужно у меня 50 однёрку не трогай это означает, что отбор будет с первой строки
If Cells(i, 4) = 0 Then Rows(i).Select 'а вот тут однёрка означает номер столбца в данном случае A если D будет цифра 4 и т.д. настрой Excel не на буквы а на цифры чтобы лучше ориентироваться
Selection.EntireRow.Hidden = True
Next i
End Sub
Sub Макрос6в()
For i = 93 To 97 'здесь ты задаёшь то количество строк которое тебе нужно у меня 50 однёрку не трогай это означает, что отбор будет с первой строки
If Cells(i, 4) = 0 Then Rows(i).Select 'а вот тут однёрка означает номер столбца в данном случае A если D будет цифра 4 и т.д. настрой Excel не на буквы а на цифры чтобы лучше ориентироваться
Selection.EntireRow.Hidden = True
Next i
End Sub
Sub СтартВ()
Макрос1в
Макрос2в
Макрос3в
Макрос4в
Макрос5в
Макрос6в
End Sub

Sub Hide_Empty_Rows()
    Dim rCell As Range, lColor&
    lColor = [MYCOLOR].Interior.Color
    With Application: .ScreenUpdating = False: .EnableEvents = False: .DisplayAlerts = False: .Calculation = xlManual: End With
    For Each rCell In Range("B" & [MYCOLOR].Offset(1).Row, Cells(Rows.Count, 2).End(xlUp))
        If rCell.Interior.Color <> lColor And Not rCell.MergeCells Then
        rCell.EntireRow.Hidden = Not (Cells(rCell.Row, 4) + Cells(rCell.Row, 5))
        End If
    Next
    With Application: .ScreenUpdating = True: .EnableEvents = True: .DisplayAlerts = True: .Calculation = xlAutomatic: End With
End Sub

Sub Макрос1в()
For i = 24 To 31 'задаешь номера строк для проверки условия
If Cells(i, 4) = 0 Then Rows(i).Select 'задаешь номер столбца для проверки условия
Selection.EntireRow.Hidden = True
Next i
End Sub

Sub Hide_Empty_Rows()
    Dim rCell As Range, lColor&
    lColor = [MYCOLOR].Interior.Color
    With Application: .ScreenUpdating = False: .EnableEvents = False: .DisplayAlerts = False: .Calculation = xlManual: End With
    For Each rCell In Range("B" & [MYCOLOR].Offset(1).Row, Cells(Rows.Count, 2).End(xlUp))
        If rCell.Interior.Color <> lColor And Not rCell.MergeCells Then
            rCell.EntireRow.Hidden = Not (CBool(Cells(rCell.Row, 4) + Cells(rCell.Row, 5)))
        End If
    Next
    With Application: .ScreenUpdating = True: .EnableEvents = True: .DisplayAlerts = True: .Calculation = xlAutomatic: End With
End Sub

Sub Макрос1в()
    Dim i
    For i = 24 To 31
    Rows(i).EntireRow.Hidden = Not (CBool(Cells(i, 4) + Cells(i, 5)))
    Next i
End Sub