1 つのシートだけのブックを作成する
新しいブックの作成は Workbooks.Add と記述すればよいのですが、そのまま記述すると "ブックのシート数" で設定されている分だけシートが用意されたブックが作成されてしまいます

下記のように、引数の TemplatexlWBATWorksheet を設定すれば シート 1 つだけのブックが作成できます
このブックを保存するところまでマクロで行うのであれば何の問題もありませんが、保存はマクロで行わない場合に、タイトルバーに表示される名前が Book1 ではなく、Sheet1 のようになってしまいます
これが気に入らない場合、ブックを作成した直後に ActiveWindow.Caption で無理やりタイトルバーの表示を変える方法もあります

ブックをオブジェクト変数に格納しても使用する場所が限られてますので、ワークシートをオブジェクト変数に格納すると効率がよいです
ブックを扱う場合には、ワークシートの Parent プロパティを利用します
Dim o_sheet As Worksheet

Set o_sheet = Workbooks.Add(Template:=xlWBATWorksheet).Worksheets(1)
ActiveWindow.Caption = "Book1"

o_sheet.Parent.SaveAs "C:\VBA\ブック作成.xls"