シートを指定の位置に追加する。

VBAでシートを追加するにはAddメソッドを利用します。
複数のシートを追加するには引数のCountを利用すればまとめて追加できます。
シートを指定した位置に追加させたい場合は、Addメソッドの引数でBefore、またはAfterを指定することで設定することができます。
またBefore、またはAfterの引数を指定しない場合は、現在Activeな状態になっているシートの手前に追加されます。

　●シートを追加（引数なし）

'******************************************************************
'　アクティブなシートの手前に追加
'******************************************************************
Sub Main_AddSheet()

    'シートを追加
    Sheets.Add

End Sub

　■実行前

　■実行結果

　●指定したシートの手前、または後ろにシートを追加

'******************************************************************
'　指定したシートの手前または後ろにシートを追加
'******************************************************************
Sub Main_AddSheet_BA()

    '[Sheet3]の手前にシートを追加する
   Sheets.Add Before:=Sheets("Sheet3")
   
    '[Sheet3]の後ろにシートを追加する
   Sheets.Add After:=Sheets("Sheet3")

End Sub

　■実行前

　■実行結果

　●全体の右端・左端にシートを追加

'******************************************************************
'　全体の右端・左端にシートを追加
'******************************************************************
Sub Main_AddSheet_LR()

    '右端にシートを追加する
    Sheets.Add After:=Sheets(Sheets.Count)
    
    '左端にシートを追加する
    Sheets.Add Before:=Sheets(1)
    
End Sub

　■実行前

　■実行結果

●複数のシートを追加

'******************************************************************
'　複数シートの数を指定して追加
'******************************************************************
Sub Main_AddSheet_Cnt()

    '右端にシートを3シート追加する
    Sheets.Add After:=Sheets(Sheets.Count), Count:=3

End Sub

　■実行前

　■実行結果