将模板行复制并粘贴到活动单元格下方的行

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后，无需粘贴，因此这一行：

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

正在返回错误。它不是必需的，因此可以删除。