Exelの表を以下のように全行組み替えたいと思いますが、手作業では大変

Exelの表を以下のように全行組み替えたいと思いますが、手作業では大変です。
そこでマクロを作って作業をさせたいのですが、どのように記述すればよいでしょうか？
（現状の表組）※左の数値がレコード数です。
1|A| |C| |
|B| |D| |
2|E| |G| |
|F| |H| |

（このように整形したい表）
1|A|B|C|D|
2|E|F|G|H|

このレコードが何百と下に並んでいる状態です。

※添付画像が削除されました。

No.2 ベストアンサー 回答者： keithin 回答日時： 2010/05/10 14:39

sub macro1()

　dim r as long
　r = range("B65536").end(xlup).row

　with range("C1:C" & r & ",E1:E" & r)
　　.formular1c1 = "=IF(RC1="""","""",R[1]C[-1])"
　　.value = .value
　end with

　range("1:1").insert
　range("A:A").autofilter field:=1, criteria1:="="
　cells.delete shift:=xlshiftup
end sub
とか。

No.3 回答者： web2525 回答日時： 2010/05/10 18:31

元の表の形式はどっち?

この回答への補足

すいません、わかりにくかったですね。
Bの方となります。

補足日時：2010/05/11 09:34

No.1 回答者： hige_082 回答日時： 2010/05/10 14:34

マクロの記録で記録したものです

こんなことがしたいのでは？

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2010/5/10 ユーザー名 : hige_082
'

'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
End Sub

参考まで