Excell makro ile başka sayfada satır gösterme gizleme

[bates54]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B6")) Is Nothing Then Exit Sub
If Range("B6") = "" Then
Call Gizle_Goster(False)
Else
Call Gizle_Goster(True)
End If
End Sub
Sub Gizle_Goster(x As Boolean)
Worksheets("İlk Oturum").Range("A18:A19:A20:A21").EntireRow.Hidden = x
End Sub
----------
Alıntı yaptığım kod ile ilgili, koda ilave olarak B8 hücresinin de A22:A23:A24:A25 satırlarını gizlemesi için aynı işlevi yapmak istedim hata verdi.
Aynı kod ile "İlk oturum sayfasında" B6 hücresinin A18:A19:A20:A21 satırları B8 hücresinin A22:A23:A24:A25 satırlarını gizleyip açması için kodda ne gibi değişiklik yapılmalı?