ＶＢ６でエクセルを使ったアプリケーションを作成しています。
データが一定以上ある場合は、最初は1だったシートに1つ追加して、
2枚目のシートに書き込むというものですが、シートの追加方法がわかりません。

マクロの記録を使ってみてください。

WookbookオブジェクトのWorksheetsプロパティからSheetsコレクションオブジェクトを取得して、
そのAddメソッドを使用してみるとか・・・（未検証）

Worksheets（Workbookの子オブジェクト）のAddメソッドを使えば出来ます。

> ＶＢ６でエクセルを使ったアプリケーションを作成しています。
> データが一定以上ある場合は、最初は1だったシートに1つ追加して、
> 2枚目のシートに書き込むというものですが、シートの追加方法がわかりません。

マクロの記録を使えば大抵のことは分かると思います。