新規でシート作成

一番後ろに追加している

Worksheets.Add after:=Worksheets(Worksheets.Count)

ネタ元

• http://www.moug.net/tech/exvba/0040018.htm