Sub test()
        Dim sht As Worksheet
        Dim a As Integer
            
        Set sht = ThisWorkbook.Worksheets("Лист4")
            
        If sht.Cells(13, 6) = 0 Then
            For a = 42 To 47
                sht.Rows(a).Hidden = True
            Next a
        Else
            For a = 42 To 47
                sht.Rows(a).Hidden = False
            Next a
        End If
        If sht.Cells(14, 6) = 0 Then
            For a = 48 To 53
                sht.Rows(a).Hidden = True
            Next a
        Else
            For a = 48 To 53
                sht.Rows(a).Hidden = False
            Next a
        End If
        If sht.Cells(15, 6) = 0 Then
            For a = 54 To 58
                sht.Rows(a).Hidden = True
            Next a
        Else
            For a = 54 To 58
                sht.Rows(a).Hidden = False
            Next a
        End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
       Dim iRange As String
       If Not Intersect(Range("F13:F15"), Target) Is Nothing Then
           Select Case Target.Row
               Case 13: iRange = "42:47"
               Case 14: iRange = "48:53"
               Case 15: iRange = "54:58"
           End Select
           Rows(iRange).Hidden = IIf(Target, 0, 1)
       End If
End Sub