Макрос при вставки строк

[dzv]

Вот, что я придумал, если лист защищен, хотя правильность работы не гарантирую в дальнейшем.

Sub ВставитьСнизуСтроку()
    On Error Resume Next: Application.ScreenUpdating = False
    With ActiveCell
    Worksheets(1).Unprotect Password:="пароль"
        Rows(.Row).Copy
        Rows(.Row).Insert
        Rows(.Row).ClearContents
    Worksheets(1).Protect Password:="пароль", AllowInsertingRows:=True, AllowDeletingRows:=True _
    , AllowSorting:=True, AllowFiltering:=True
    End With
End Sub

Sub УдалитьНижнеюСтроку()
    With ActiveCell
    Worksheets(1).Unprotect Password:="пароль"
        Rows(.Row + 1).Delete
    Worksheets(1).Protect Password:="пароль", AllowInsertingRows:=True, AllowDeletingRows:=True _
    , AllowSorting:=True, AllowFiltering:=True
    End With
End Sub

[dzv]

Погрешность в указанном коде все же есть...

Если выше копируемой строки в ячейки стоит формула, например, СУММ(А1:А10), в нижней строке ячейка не попадает в диапазон СУММ(А1:А11), данный диапазон будет начинаться с СУММ(А2:А11) добавленной строки.