シートのコピー（シート名に対する位置指定）

Sub prcCopySheetAndRename()
    ' 変数宣言
    Dim wstOriginal As Worksheet
    Dim wstNew As Worksheet
    Dim strNewName As String

    ' コピーするシートと新しいシート名の設定
    Set wstOriginal = ThisWorkbook.Sheets("Sheet1")
    strNewName = "Sheet1a"
    
    ' シートをコピーして新しいシートに設定
    wstOriginal.Copy After:=wstOriginal
    Set wstNew = ActiveSheet
    wstNew.Name = strNewName
End Sub