ワークシートのコピーは次のように行います。
アクティブなシートを"Sheet2"の後ろにコピーする
Sub Test() ActiveSheet.Copy After:=Worksheets("Sheet2") End Sub
"Sheet1"を"Sheet2"の後ろにコピーする
Sub Test() Worksheets("Sheet1").Copy After:=Worksheets("Sheet2") End Sub
現在アクティブなシートを"Sheet2"の前にコピーする
Sub Test() ActiveSheet.Copy Before:=Worksheets("Sheet2") End Sub
"Sheet2"を"Sheet1"の前にコピーする
Sub Test() Worksheets("Sheet2").Copy Before:=Worksheets("Sheet1") End Sub