Sub Macro1()
 For a = 1 To 3
 Sheets.Add
 Range("A:A,G:G").NumberFormatLocal = "@"
 Next a
End Sub

sheet1からn個とありますが､追加するｼｰﾄは 既存のｼｰﾄの次から作ります｡
質問内容からして これでもいいかなと判断したのですが
sheet1からがよいのならば少し ﾌﾟﾛｸﾞﾗﾑの修正が必要となります｡

あと
For a = 1 To 3
の 最後の 3が n個の個数となります｡
適宜 作りたい個数に変更してください｡