ＶＢＡでグループごとソートする方法がわかりません。

質問

下記のようなソートをVBAで行いたいのですがわかりません。
３行２列ずつ入れ替え、その結果を別シートに作成したいのです。

A 　　　B 　　　C 　　　D 　　　E 　　　F 　　　G 　　　H 　　　I 　　　J 　　　K 　　　L
5 　　　佐藤　　6 　　　鈴木　3 　　　高橋　　8 　　　磐田　5 　　中根　　5 　　　後藤
da8 　　　　　　da4 　　　　　　da6 　　　　　　da1 　　　　　　da1 　　　　　da5

　↓（２行目の数を基準に３行２列ごと入れ替え）

E 　　　F 　　　A 　　　B 　　　I 　　　J 　　　K 　　　L 　　　C 　　　D 　　　G 　　　H
3 　　　高橋　　5 　　　佐藤　5 　　中根　　5 　　 後藤　 6 　　 鈴木　　8 　　　磐田
da6 　　　　　　da8 　　　　　　da1 　　　　　da5 　　　　　　 da4 　　　　　da1

　↓（最初の条件を満たしたまま、３行目のdaに続く数を基準に３行２列ごと入れ替え）

E 　　　F 　　　I 　　　J 　　　K 　　　L 　　　A 　　　B 　　　C 　　　D 　　　G 　　　H
3 　　　高橋　　5 　　　中根　5 　　後藤　　5 　　 佐藤　 6 　　 鈴木　　8 　　　磐田
da6 　　　　　　da1 　　　　　　da5 　　　　　da8 　　　　　　 da4 　　　　　da1

最近VBAを勉強し始め、「かんたんプログラミング　EXCEL　VBA」という書籍を読んだ知識レベルのため、なかなか苦戦しております。お時間ありましたら、考え方のヒントもしくは教えていただけないでしょうか？
以下を貼り付けてカット＆ペーストしていただいたらデータを作成しやすいです。
ABCDEFGHIJKL
5佐藤6鈴木3高橋8磐田5中根5後藤
da8da4da6da1da1da5

回答No.2

zap35

全くもってEXCEL向きではない表ですね(^^;
並べ替えた結果はどのようにしても良いのですが、元のデータは
Ａ列　　Ｂ列　　Ｃ列
　５　　佐藤　　da8
のように表を作成するべきです。そうすれば並べ替えも簡単にできます。並べ替えた結果をマクロで追加シートに展開するのは比較的簡単でしょう。（そうでないと配列定数を使用する必要があるのでマクロも難しくなります）

マクロの勉強中だそうですからマクロにしますが、以下は追加シートに一旦、上記作業用の表を作成し、値を展開し直すものです。

Sub Macro3()
Dim idx As Integer
Dim ShtNM As String
　ShtNM = ActiveSheet.Name
　Worksheets.Add
　With Sheets(ShtNM)　'一旦作業表を作成する
　　For idx = 1 To .Range("IV1").End(xlToLeft).Column Step 2
　　　If .Cells(1, idx) = "" Then
　　　　Exit For
　　　Else
　　　　ActiveSheet.Cells(4 + Int(idx / 2), "A").Value = .Cells(1, idx)
　　　　ActiveSheet.Cells(4 + Int(idx / 2), "B").Value = .Cells(1, idx).Offset(0, 1).Value
　　　　ActiveSheet.Cells(4 + Int(idx / 2), "C").Value = .Cells(1, idx).Offset(1, 0).Value
　　　End If
　　Next idx
　End With

　With ActiveSheet　'作業表を並べ替えてから表示形式に展開
　　.Cells(4, "A").CurrentRegion.Sort Key1:=Range("A4"), Order1:=xlAscending　
　　For idx = 4 To .Range("A65536").End(xlUp).Row
　　　.Cells(1, (idx - 4) * 2 + 1) = .Cells(idx, "A").Value
　　　.Cells(1, (idx - 4) * 2 + 1).Offset(0, 1) = .Cells(idx, "B").Value
　　　.Cells(1, (idx - 4) * 2 + 1).Offset(1, 0) = .Cells(idx, "C").Value
　　Next idx
　　.Cells(4, "A").CurrentRegion.ClearContents
　　.Cells(1, "A").Select
　End With
End Sub