”タイトル”って何でしょうか?シート名ですか?
先頭の一行目に書き出したいのであれば、Do Until の前の行あたりに、Write すれば良いでしょう。
シート名の取得とかは、下記のページを参考にしてみてはいかがでしょうか。
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page2.htm
今の「どうすれば良いか?」という質問はほぼ丸投げと言って差し支えないでしょう。
VBA のコードを読んで何をしているかわかっていますか?わからなければコードの意味を理解するようにしてください。
わかった上で、次の具体的なコードが見えてこないのであれば、「○○するために、××を書けば良さそうと考えていますが、××はどこから取得したら良いのでしょうか」など、もう少し踏み込んだ質問になると良いように思います。
サンプルコードをそのまま使う、改造して使うことは著作権上問題にならないか、気にする必要がある点も覚えておいてください。
質問スレッドで解決した場合は、解決の参考になった投稿に対して「回答としてマーク」のボタンを押すことで、同じ問題に遭遇した別のユーザが役立つ投稿を見つけやすくなります。