將模板行復制並粘貼到活動單元格下方的行中

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 

將返回錯誤。它不是必需的，因此可能會被刪除。