Hello! I am working on a project where certain rows/columns are hidden based on values entered in two different cells. The both work individually, but I want them to work together. For instance I need the spreadsheet to react and filter twice based on the values entered in 2 cells. My code is below, what can I do to make them run together and not have one trump the other?

Private Sub Worksheet_Change(ByVal Target As Range)
Columns("C:R").EntireColumn.Hidden = False
Rows("9:57").EntireRow.Hidden = False
If Target.Address = "$B$3" Then
    Select Case Target.Value
        Case Is = "Sunday"
            Columns("E:R").EntireColumn.Hidden = True
            Rows("41:46").EntireRow.Hidden = True
        Case Is = "Monday"
           Columns("C:D").EntireColumn.Hidden = True
           Columns("G:R").EntireColumn.Hidden = True
            Rows("43:46").EntireRow.Hidden = True
        Case Is = "Tuesday"
           Columns("C:F").EntireColumn.Hidden = True
           Columns("I:R").EntireColumn.Hidden = True
              Rows("41:42").EntireRow.Hidden = True
              Rows("44:46").EntireRow.Hidden = True
        Case Is = "Wednesday"
           Columns("C:H").EntireColumn.Hidden = True
           Columns("K:R").EntireColumn.Hidden = True
           Rows("41:43").EntireRow.Hidden = True
              Rows("45:46").EntireRow.Hidden = True
        Case Is = "Thursday"
           Columns("C:J").EntireColumn.Hidden = True
           Columns("M:R").EntireColumn.Hidden = True
             Rows("41:44").EntireRow.Hidden = True
              Rows("46").EntireRow.Hidden = True
        Case Is = "Friday"
           Columns("C:L").EntireColumn.Hidden = True
           Columns("O:R").EntireColumn.Hidden = True
              Rows("41:45").EntireRow.Hidden = True
        Case Is = "Saturday"
           Columns("C:N").EntireColumn.Hidden = True
           Columns("Q:R").EntireColumn.Hidden = True
            Rows("41:46").EntireRow.Hidden = True
        
End Select
End If

If Target.Address = "$B$4" Then
    Select Case Target.Value
        Case Is = "Week 1"
            Rows("50:57").EntireRow.Hidden = True
        Case Is = "Week 2"
            Rows("47:49").EntireRow.Hidden = True
            Rows("53:57").EntireRow.Hidden = True
        Case Is = "Week 3"
            Rows("47:52").EntireRow.Hidden = True
            Rows("55:57").EntireRow.Hidden = True
        Case Is = "Week 4"
            Rows("47:54").EntireRow.Hidden = True
        Case Is = "Week 5"
            Rows("47:57").EntireRow.Hidden = True

End Select
End If
End Sub