excel 一个格式表格，编号不同。怎么批量生成？

Sub prtTag()
    Dim ic As Integer
    Dim i As Integer
    Dim j As Integer
    Application.ScreenUpdating = False
    Sheets("数据").Select
    ic = ActiveSheet.UsedRange.Rows.Count - 1
    Sheets("生成结果").Select
    Cells.Select
    Selection.Clear
    ActiveSheet.DrawingObjects.Select
    Selection.Delete
    Sheets("模板").Rows("1:10").Copy
    For i = 1 To ic
        Range("A" & (i - 1) * 10 + 1).Select
        Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveSheet.Paste
    Next i
    For i = 1 To ic
        Cells((i - 1) * 10 + 2, 5) = Sheets("数据").Cells((i - 1) + 2, 1)
    Next i
    Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub