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

Question

Моя цель состоит в том, что я могу выбрать один из трех шаблонов строк, расположенных в строках от 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 Ошибка 438 объект не поддерживает это свойство или метод).

Почему?

Answer 1

После Application.CutCopyMode = False побежал нет ничего Paste, так что эта строка:

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

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