自ブックのシートを指定の位置にコピーする。

シートをコピーするにはCopyメソッドを利用します。
シートを指定した位置にコピーさせたい場合は、Copyメソッドの引数でBefore、またはAfterを指定します。
注意点としてBefore、またはAfterの引数を指定しない場合は新しいブックにシートがコピーされるので自ブック内でコピーさせたい場合は引数が必須になります。

　●指定したシートの手前にコピー

'******************************************************************
'　指定したシートの手前にコピー
'******************************************************************
Sub Main_CopyBefore()

    '[Sheet1]を[Sheet3]の手前にコピーする
    Sheets("Sheet1").Copy Before:=Sheets("Sheet3")

End Sub

　■実行結果

　●指定したシートの後ろにコピー

'******************************************************************
'　指定したシートの後ろにコピー
'******************************************************************
Sub Main_CopyAfter()

    '[Sheet1]を[Sheet3]の後ろにコピーする
    Sheets("Sheet1").Copy After:=Sheets("Sheet3")

End Sub

　■実行結果

●全体の左端にコピー

'******************************************************************
'　全体の左端に移動
'******************************************************************
Sub MainCopyLeft()

    '[Sheet1]を左端にコピーする
    Sheets("Sheet1").Copy Before:=Sheets(1)

End Sub

　■実行結果

●全体の右端にコピー

'******************************************************************
'　全体の右端に移動
'******************************************************************
Sub Main_CopyRight()

    '[Sheet1]を右端にコピーする
    Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)

End Sub

　■実行結果