EXCEL VBA复制样板sheet并重命名为XXX_1，再次执行就再复制一个重命名为XXX_2，如此循环，求助。

目的：复制样板sheet并重命名为XXX_1，再次执行就再复制一个重命名为XXX_2，如此循环，请问这功能能否用VBA实现？
另：如果要在XXX_6时不再新建sheet，而是覆盖原来的XXX_1，这样的功能能否实现？
如果能实现，请教各位高手，代码如何写？

---

Private lngRunTimes As Integer '?行次数
Sub CopySheets()
    Dim strShtName As String '工作表名称
    Dim lngShtNo As Integer '?号
    strShtName = "XXXXXX_"                                                                                                                   
    Sheets("Sheet").Select                                                                                                                       
    If lngRunTimes < 6 Then
        lngRunTimes = lngRunTimes + 1
        lngShtNo = Sheets.Count
        Sheets("Sheet").Copy after:=Sheets(lngShtNo)
    Else
        lngRunTimes = lngRunTimes + 1
        lngShtNo = lngRunTimes - (Int(lngRunTimes / 6) * 6)
        Sheets(strShtName & Str(lngShtNo)).Delete
        Sheets("Sheet").Copy after:=Sheets(lngShtNo)
    End If                                                                                                                     
    ActiveSheet.Name = "XXXXXX_" & Str(lngShtNo)
End Sub

大概写了激困肢下，因为删除时会有提醒，如果不想要，可以明世再给你改一下尺派

Private lngRunTimes As Integer '?岘师悢
Sub CopySheets()
    Dim strShtName As String '岺嶌昞柤徧
    Dim lngShtNo As Integer '?崋
    strShtName = "XXXXXX_"
               
    Sheets("Sheet").Select
               
    If lngRunTimes < 6 Then
        lngRunTimes = lngRunTimes + 1
        lngShtNo = Sheets.Count
        Sheets("Sheet").Copy after:=Sheets(lngShtNo)
    Else
        lngRunTimes = lngRunTimes + 1
        lngShtNo = lngRunTimes - (Int(lngRunTimes / 6) * 6)
                   
        Application.DisplayAlerts = False '钀暵采帵瀥
        Sheets(strShtName & Str(lngShtNo)).Delete
        Application.DisplayAlerts = True '懪奂采帵瀥
                   
        Sheets("Sheet").Copy after:=Sheets(lngShtNo)
    End If
               
    ActiveSheet.Name = "XXXXXX_" & Str(lngShtNo)
End Sub

---

Sheets("模板").Select
Range("A1:R3").Select '选中信喊皮a1到r3范围
Selection.Copy ‘复制
Worksheets.Add after:=Worksheets("sheet2") '在工作表sheet2之后添加一个滑差工作表"
Sheets("模板").Select
Sheets("模渗芹板").Paste

---