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