Worksheets(CopySheetName).Copy After:=Worksheets(AfterSheetName)

ActiveSheet.Name = CopiedSheetName

CopySheetNameにコピー対象のシート名を指定する。

AfterSheetNameにはコピーしたシートの挿入場所を指定する。Afterの場合は指定したシートの後に挿入。Beforeの場合は指定したシートの前に挿入。

CopiedSheetNameにコピーして作成したシートの名前を指定する。