Кнопка макроса для добавления строки под выбранной строкой и копирования ее единственной формулы в новую строку

Question

Я работаю над расписанием, в котором пользователь может нажать на кнопку +, он добавит новую строку под строкой нажатой кнопки и скопирует формулу в новую строку.Пользователи должны вводить свой рабочий час для разных источников финансирования в один и тот же день в нескольких строках.

Макрос, приведенный ниже, работает нормально, однако он добавляет строку ABOVE строку щелчка вместо НИЖЕ строка, по которой щелкнули.Я публикую этот вопрос с надеждой, что некоторые эксперты с этого форума могут мне помочь.Заранее большое спасибо.

Sub Macro1()

    Dim row As Long

    'Insert new row on button row
    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row
    Rows(row).Insert

    'AutoFill from 1 row above new row for 1 row down
    Rows(row - 1).AutoFill Destination:=Rows(row - 1 & ":" & row), Type:=xlFillDefault

    'Clear cells A-S on new row
    Range("A" & row & ":F" & row).ClearContents
    Range("H" & row & ":P" & row).ClearContents


End Sub

Answer 1

Большое спасибо, Дэвис. Оно работает. Вот мой полный макрос.

Sub Macro1()

    Dim row As Long

    'Insert new row on button row
    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row
    Rows(row + 1).Insert

    'AutoFill new row
    Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault

    'Clear cells A:F and H:M on new row
    Range("A" & row + 1 & ":F" & row + 1).ClearContents
    Range("H" & row + 1 & ":M" & row + 1).ClearContents

End Sub