VBA将两张图纸复制到一起，得到100份副本

我有两个模板表（链接），我想创建这两个模板的大约100倍，并根据表“Output-->>”表单单元格A381上的列表重命名它们。乐购，乐购

下面的代码不起作用，有人能帮忙吗

Sub makeSheets()
Dim sh1 As Worksheets, sh2 As Worksheet, c As Range
Set sh1 = Sheets(Array("Template", "Template LL"))
Set sh2 = Sheets("Output-->>>")
    For Each c In sh2.Range("A381", sh2.Cells(Rows.Count, 2).End(xlUp))
        sh1.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = c.Value
    Next
End Sub

---

非常感谢

从完全限定

行开始

参考：

sh2.Cells（sh2.Rows.Count，2）。End（xlUp）

不能很好地描述运行代码时发生的情况。