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

Question

我的目标是 select 位于第 1 行到第 3 行的三个行模板之一，并且根据光标所在的位置，应该插入 selection排在下面。此代码工作正常并插入 selected 模板行：

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  

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