Автоматически заполнить две диаграммы в Excel

Question

Я пытаюсь запустить отчеты, которые автоматически показывают запрошенные графики. Я могу правильно заполнить этот макрос. Тем не менее, я хотел бы добавить второе условие в этот макрос, чтобы он извлекал данные из «A2», «A3», «A4» и «A5». Как это можно сделать?

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Activate
If Not Application.Intersect(Range("A2"), Range(Target.Address)) Is Nothing Then
        Select Case Target.Value
        Case Is = "Tommy": Rows("4:57").EntireRow.Hidden = True
                            Rows("4:13").EntireRow.Hidden = False
                            Rows("37:45").EntireRow.Hidden = False
        Case Is = "Molly":  Rows("4:57").EntireRow.Hidden = True
                            Rows("45:58").EntireRow.Hidden = False
        Case Is = "Joe":  Rows("4:57").EntireRow.Hidden = True
                           Rows("14:18").EntireRow.Hidden = False
        Case Is = "Bill":  Rows("4:57").EntireRow.Hidden = True
                           Rows("19:36").EntireRow.Hidden = False
         End Select
End If
End Sub