シートを挿入するには、WorksheetsコレクションのAddメソッドを利用します。特定のシートの左側に挿入するには引数Before、右側に挿入するには引数Afterを使って指定します。ブックの一番左端に挿入するときは、現時点で一番左端のシートを意味するSheets(1)を使い、Before:=Sheets(1)と指定すればOKです。
一番右端に挿入するときは、After:=Sheets(Sheets.Count)とします。Sheets.Countでブック内の総シート数を数えて、これをSheetsコレクションのインデックスに指定すれば、現時点での一番右端のシートを指定できます。