Excel 尝试将数据从一张图纸复制到另一张图纸并创建多个条目

我有一个工作簿，其中包含以下工作表活动列表-1列包含活动可变列表（字符串数据）模板-此工作表包含一个7列X 22行的单元格组，该单元格组构成下一工作表中使用的模板。活动步骤-此工作表包含屏幕下方列出的已完成模板，它们之间有一个空行

我的目标是自动创建活动步骤表。为此，我首先在活动列表表中找到行数。然后将活动（活动列表第一个单元格上的字符串）复制到模板的第一个单元格。我还会将相同的字符串复制到模板中的另一个单元格中。然后，我想将包含已完成模板的范围复制到“活动步骤”工作表中。在上一行之间留下一个空行

我已经尝试将下面的大部分代码作为单个部分，但当我尝试将其作为单个例程组合在一起时，我得到了一个“运行时错误1004-应用程序定义或对象定义错误” 我需要你帮我弄清楚怎么做

谢谢

Sub Create_Activity()

Dim ws As Worksheet: Set ws = Sheets("Activity Steps") 'declare and set your worksheet

With Worksheets("Activity List") 'Count the number of rows in Activity List NbrOfActivities = Application.Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count End With

For i = 1 To NbrOfActivities

Activity = ActiveWorkbook.Worksheets("Activity List").Cells(i, 1).Value 'Get First Activity From List
ActiveWorkbook.Worksheets("Template").Cells(A, 1).Value = Activity 'Put Activity into Cell A1 on Template
ActiveWorkbook.Worksheets("Template").Cells(D, 4).Value = Activity 'Put Activity into Cell D4 on Template
ActiveWorkbook.Worksheets("Template").Range("A1:G23").Copy 'Copy Complet Template Range
NextRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 2 'Get next Row in Activity Steps workSheet

ws.Range("A" & NextRow).PasteSpecial xlPasteAll 'paste completed template in Activity Steps worksheet
Next i ' Get next Activity From List

End Sub

---

哪一行出现错误？ActiveWorkbook.Worksheets（“模板”）.Cells（A，1）。Value=Activity“将活动放入模板

单元格（A，1）

-->

单元格（1，“A”）

。类似地，

单元格（D，4）

-->

单元格（4，“D”）

。谢谢你，就这样。感谢哪一行给出了错误？ActiveWorkbook.Worksheets（“模板”）.Cells（A，1）。Value=Activity“将活动放入模板

单元格（A，1）

-->

单元格（1，“A”）

。类似地，

单元格（D，4）

-->

单元格（4，“D”）

。谢谢你，就这样。谢谢