使用VBA粘贴时如何修复运行时错误1004

1. 不要使用.Select或.Activate（如何避免在Excel VBA中使用Select）。
2. 例如，给红格命名PasteBeforeHere。因此，用户无需手动选择此单元格。如果使用命名范围，则可以Range("PasteBeforeHere")轻松访问该单元格。
3. 然后在复制/粘贴之前先插入空行。

类似于以下内容的东西应该起作用：

Option Explicit

Private Sub CommandButton1_Click()
    Dim Source As Range
    Set Source = ThisWorkbook.Worksheets("Working Sheet").Range("A1:AQ7")

    Dim InsertBefore As Range
    Set InsertBefore = Selection 'better ThisWorkbook.Worksheets("FCTC").Range("PasteBeforeHere")
    Set InsertBefore = ThisWorkbook.Worksheets("FCTC").Range("PasteBeforeHere")

    'insert empty rows (same amount as source has)
    Application.CutCopyMode = False
    InsertBefore.Resize(RowSize:=Source.Rows.Count).EntireRow.Insert

    'copy from source to destination
    Source.Copy Destination:=InsertBefore.Offset(RowOffset:=-Source.Rows.Count)
End Sub