макрос на добавление или удаления строк в таблицах

[VITA11111]

нужен макрос
A7:AD9 на листе "ТЕХНИКА НАПАДЕНИЯ" является переменным проверяемым массивом т.е. подразделом таблицы
нужно найти последнюю строку в этом массиве ,а потом снизу этого массива вставить строку с формулами из последней строки этого массива снизу в этом массиве
и получится что после добавлении строки проверяемый массив поменялся на
A7:AD10
таких масивов несколько на листе
после добавлении строк на листе "ТЕХНИКА НАПАДЕНИЯ" автоматически добавлялись строки в такихже подразделах таблицы "рабочего плана" и листа "2"

Sub М()
    Range("A9:AD9").Copy
    Range("A9:AD9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A9:AD9").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("С10").Activate
End Sub]

чтото такое
тут добавляется строка исходя из выделенной ячейки

Sub addRow()

Dim Frow As Long, Lrow As Long, Lcol As Long
Dim icol As Range, jCol As Range, n As Integer
 
 Frow = ActiveCell.Row
 Lcol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column

    For Each icol In Range(Cells(Frow, 1), Cells(Rows.Count, Lcol)).Columns
      Lrow = icol.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
      Set jCol = icol.Resize(Lrow - Frow + 1)
      If jCol.Locked = False Then
         jCol.Copy Destination:=jCol.Offset(1, 0)
         jCol.Cells(1).ClearContents
      End If
    Next icol
End Sub
Sub delRow()

Dim Frow As Long, Lrow As Long, Lcol As Long
Dim icol As Range, jCol As Range, n As Integer
 
 Frow = ActiveCell.Row + 1
 Lcol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column

    For Each icol In Range(Cells(Frow, 1), Cells(Rows.Count, Lcol)).Columns
      Lrow = icol.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
      Set jCol = icol.Resize(Lrow - Frow + 1)
      If jCol.Locked = False Then
         jCol.Copy Destination:=jCol.Offset(-1, 0)
         jCol.Cells(jCol.Cells.Count).ClearContents
      End If
    Next icol
End Sub