VBA Excel-以下每个电子表格的循环分组

Question

我正在尝试将“模板”中的相同格式复制并粘贴到以下每个电子表格中，但是将其分组。此外，还有一个按钮/文本框，我为其分配了另一个宏，该宏消失了。

在复制和粘贴时是否有办法将分组/按钮移到上方？如果不是，是否有一种方法可以使VBA自动从单元格（A9：A13）和（A14：A18）中进行分组并包含按钮？这是我开始的。谢谢。

Dim wsVar As Worksheet
Dim i As Integer
With ThisWorkbook
    For i = 6 To .Worksheets.Count
        .Worksheets("Template").Range("A1:Y200").Copy
        .Worksheets(i).Range("A1:Y200").PasteSpecial Paste:=xlPasteAll
        .Worksheets(i).Range("A1:Y200").PasteSpecial Paste:=xlPasteColumnWidths
    Next
End With