シートを挿入する場所を指定します。

　コマンドボタンを1つ追加して、コマンドボタンのオブジェクト名を「sheet_add3」に変更。
それとCaptionを「指定したシートの前にシートを挿入」というように変更をしました。

次もコードは簡単。

Worksheets．Add　Before:=Worksheets("sheet2"),　Count：=2

この1行を書くだけです。これで2枚のシートがsheet2の前に挿入されます。
もし後ろに挿入したいときは、

Worksheets．Add　After:=Worksheets("sheet2"),　Count：=2

と記述すれば、sheet2の後ろに挿入されます。