Скрытие строк.

[МиниМы]

Добрый день, уважаемые программисты помогите нубу.
Пытался сделать, переделать сам, но утыкаюсь в несколько тупиков.
Задача:
Необходимо, чтобы в зависимости от выбора в ячейке AG3 (Sob) было открыто или соответственно скрыто несколько ненужных строк (объединил данные в группы).

Пытался сделать макросом в листе, но есть 1но НО.
1. столбец А объединён по строкам и В также, из-за этого макрос или скрывает всё или открывает всё, если объединение убрать, то всё работает.
2. в макросе на листе написано, что он начинает работу при изменении данных, наткнулся на проблему, что он запускается в независимости от изменения нужной мне ячейки, а даже если в любой строке, что либо изменить.

Помогите плиз, и ещё вопрос, можно ли данный процесс как-то реализовать без макросов?

[88ra]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim w As Object
    On Error Resume Next
    If ActiveCell.Row = 2 And ActiveCell.Column = 33 Then
        Rows("7:15").EntireRow.Hidden = True
    End If
End Sub

[МиниМы]

Код не помогает, ничего не происходит, или скрывает сразу всё.

[88ra]

Сообщение от МиниМы

Код не помогает, ничего не происходит, или скрывает сразу всё.

у меня все работает. попробуйте файл (вложил)

[DiemonStar]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [AG2]) Is Nothing Then
    Range([AG2] * 9 - 2 & ":" & [AG2] * 9 + 6).EntireRow.Hidden = Not Range([AG2] * 9 - 2 & ":" & [AG2] * 9 + 6).EntireRow.Hidden
  End If
End Sub

вот этот код переключает видимость выбранного элемента