Скопируйте и вставьте строки шаблона в строку под активной ячейкой

Моя цель состоит в том, что я могу выбрать один из трех шаблонов строк, расположенных в строках от 1 до 3, и в зависимости от того, где я нахожусь с курсором, выбор должен быть вставлен в строку ниже. Этот код отлично работает и вставляет выбранный шаблон-строку: 

Sub InsertRowBelow()
RowNumber = ActiveCell.Offset(1).Row
SelectTemplate = InputBox("Which row level do you want to insert?                    1 = Title, 2 = Subtitle, 3 = Task")
Worksheets("Projektplan").Rows(SelectTemplate).EntireRow.Copy
Worksheets("Projektplan").Rows(RowNumber).EntireRow.Insert
Application.CutCopyMode = False
Worksheets("Projektplan").Rows(RowNumber).Paste
End Sub

Но в итоге он генерирует ошибку (VBA error 438 object не поддерживает это свойство или метод ).

Почему это?

1 2
excel vba excel-vba copy-paste

1 ответ:

Один Раз Применение.CutCopyMode = False запустил вставить нечего, поэтому эта строка: 

Worksheets("Projektplan").Rows(RowNumber).Paste

Возвращает ошибку. Он не требуется, поэтому может быть удален.

1