Подскажите пжл есть макрос на решение первого условия

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Sheets("Лист1").Range("A1") = 1 Then
Sheets("Лист2").Rows("1:3").EntireRow.Hidden = True
ElseIf Sheets("Лист1").Range("A1") <> 1 Then
Sheets("Лист2").Rows("1:3").EntireRow.Hidden = False
End If
Sheets("Лист1").Select
Application.ScreenUpdating = True
End Sub

допустим условие первое осталось без изменений
Есть книга состоящая из 3 листов "Лист1", "Лист2", "Лист3".
если ячейка А1 = "1" на листе "Лист1", то строки "1", "2", "3" на листе "Лист2" должны скрываться, если в ячейке А1 другое значение то нет

но нужно добавить и условие номер два не как не связаное с первым
если ячейка А1 = "2" на листе "Лист1", то строки "4", "5", "6" на листе "Лист2" должны скрываться, если в ячейке А2 другое значение то нет

посмотрите пжл, что можно сделать