【至急】VBA：Excelの表の並び替え

下記で作成したExcelですが、上の表のオレンジ箇所をしたの表のように値を並べたいのですが、VBAで出来ませんか？

参考になるプログラムを教えて下さい。
（上の表（オレンジ色がある表）は別のBOOKにあるのでBOOKを選択して開いてから値を取ってきて閉じるようにしたいです。）
https://drive.google.com/file/d/1WYXYajF3x-y81un …

No.1 ベストアンサー 回答者： fujillin 回答日時： 2020/08/05 11:21

こんにちは

VBAで行う意味がよくわかりませんけれど、単純なコピペなので、サンプルのままのレイアウトを仮定した場合の一例として

For rw = 8 To 14 Step 6
Set rng = Cells(rw * 2 + 2, 2).Resize(12)
rng.Value = Cells(rw - 5, 1).Value
rng.Offset(, 1).Value = Cells(rw, 2).Value
rng.Offset(, 2).Value = WorksheetFunction.Transpose(Cells(rw, 4).Resize(1, 12).Value)
Next rw

とか。
※ E列の日付はどこを参照しているのか不明なので、省略してあります。