VBA将两张纸复印在一起并获得100份

Question

我有两个模板表（已链接），我想创建两个模板（大约100次），并根据表单上的列表重命名它们＆＃34;输出 - ＆gt;＆gt;＆gt;＆＃34;形成细胞A381。例如。 tesco，tesco LL

以下代码无效，任何人都可以帮忙吗？

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

非常感谢