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

我的目标是可以select位于第1到第3行的三个行模板中的一个,并根据我在哪里使用光标将select插入到下面的一行。 此代码工作正常,并插入选定的模板行:

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对象不支持这个属性或方法 )。

这是为什么?

一旦Application.CutCopyMode = False已经运行,没有什么要粘贴,所以这一行:

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

正在返回错误。 这不是必需的,所以可能会被删除。