макрос для скрытия и показа строк в выбранном диапазоне

[шрк]

как сделать макрос для скрытия и показа строк в выбранном диапазоне
по определенным условиям

файл приложил

[EducatedFool]

Проверяйте

Всем стрелкам назначен один и тот же макрос



Вот весь код:

Const КоличествоСтрокВГруппе = 6

Sub Скрыть()
    Dim cell As Range: Set cell = ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Offset(1).Cells(9)
    fRow = cell.End(xlDown).Row
    If cell.End(xlDown).Row - cell.Row <= 2 Then MsgBox "Дальнейшее сокращение строк ограничено !": Exit Sub
    Cells(fRow - 1, "I").EntireRow.Delete
End Sub

Sub Добавить()
    Dim cell As Range: Set cell = ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Offset(1).Cells(9)
    fRow = cell.End(xlDown).Row
    If cell.End(xlDown).Row - cell.Row > КоличествоСтрокВГруппе Then _
       MsgBox "Дальнейшее добавление строк ограничено !": Exit Sub
    Cells(1, "I").Resize(, 8).Copy
    Cells(fRow, "I").Insert Shift:=xlDown
End Sub

[шрк]

посмотрел спасибо за ответ
2 вопроса
1 дело в том что у меня значения в диапазоне в диапазоне A9:H30 еще будут
а они стираются при применении макроса
те у вас стирается и добавляется видимо вся строка
а надо чтоб только кусок строки в диапазоне I:P добавлялся и убирался ( или скрывался и показывался )
в том то и сложность для меня

2 если заполнить например I9 то при добавлении строки запись смещается вниз те строки добавляются сверху и при добавлении любого значения в "I" макрос сбивается


приложил файл