Sub シートを指定シート右側に追加する()

    Worksheets.Add After:=Worksheets("Sheet2")

End Sub