1行のデータをスペースで区切って各セルへ振り分けるには？

いつもお世話になっております。
再びつまづいてしまったため、お教えいただきたく、宜しくお願い致します。
1行目はタイトル
2行目はデータ作成日
3行目は項目
が入力されております。
4行目からデータが入っているのですが、Ａ列内に1行でまとまっている状態です。
個々のデータの間は半角スペースで区切ってあり、このスペースを利用して、3行目の項目のセルへデータを移動したいと考えております。
下記が表の状態です。

｜　　　Ａ　　｜　　　Ｂ　　　｜　　　Ｃ　　｜Ｄ　｜Ｅ　｜
1｜タイトル　　｜
2｜データ作成日｜
3｜　　番号　　｜都道府県コード｜市町村コード｜番地｜備考｜
4｜012-3456789　04679　003　●□△659-8　◎●△□●～｜
5｜123-4567890　00367　048　■○●△4-9-2　△●□～｜

4行目からがデータ群です。Ｂ列から右側にはデータが存在しません。
理想は下記の通りです。

｜　　　Ａ　　｜　　　Ｂ　　　｜　　　Ｃ　　｜　　　Ｄ　　 ｜Ｅ　｜
1｜タイトル　　｜
2｜データ作成日｜
3｜　　番号　　｜都道府県コード｜市町村コード｜　　番地　　 ｜備考｜
4｜012-3456789 ｜　　04679 　　｜　　003　　 ｜●□△659-8　｜◎●△□●～｜
5｜123-4567890 ｜　　00367　 　｜　　048　　 ｜■○●△4-9-2｜△●□～｜

下記のように組んでみました。
Worksheets("Sheet1").select
Range("B4").Select
Dim c As Range
Dim j As Variant
For Each c In Selection
j =Split(c.Value," ")
c =Offset(0,0).Resize(1,UBound(j)+1)=j
Next c
End Sub

4行目のみ理想通りに動き、5行目からがどうしても動きません。

環境はExcelは2002です。
以上、宜しくお願い致します。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2009/02/08 08:15

＞Range("B4").Select

＞In Selection
選択しているのがＢ４だけですからそうなりますね。

ところでＡ列にあるデータにＢ４をSelectしているのは不可解ですが、

In Range("A4" , Cells(Rows.Count,1).End(xlUp))
でＡ４～Ａ列の最終行までとなります。

Ｂ列でよければ、
In Range("B4" , Cells(Rows.Count,2).End(xlUp))
でしょうか。

Selectするな！
http://www.officetanaka.net/excel/vba/speed/s2.htm
ご参考まで。

この回答へのお礼

前回に引続きご回答ありがとうございます。
Ａ列とＢ列を間違えており、誠に申し訳ありませんでした。
なんとか無事動きました。
ありがとうございました。

お礼日時：2009/02/11 23:12

No.2 回答者： hige_082 回答日時： 2009/02/08 09:00

最初の２行が余計です

'''Worksheets("Sheet1").select'''　ここと
'''Range("B4").Select'''　ここがいらない

これで、処理したいセルを選択し、実行するだけ
それとも、処理範囲を取得して実行したいなら
n-junさんのものを参考にしてください