【Excel VBA】別シートに、行列を入れ替えたデータを抽出する方法について

解決したいこと

元データのシート（写メ1参照）から、完成形のシート（写メ2参照）を抽出するマクロVBA を作成したいです。

作業手順を日本語にすることはできますが（写メ3参照）、
マクロVBA でどのようなコードを書けばいいのかがわかりません。

詳しい方、どのようなコードを書けばいいのか、教えていただけると幸いです。
また、良ければ、どのようにExcelVBAに精通したのか、勉強方法も教えていただけると幸いです。
（今の私は、教科書的な一つ一つの作業（例.行と列を入れ替える、行と列を入れ替えたデータを別シートに抽出する、等）しかできず、実践の場では全く手が出ません。）

↓写メ1　元データのシート

↓写メ2　完成形のシート

↓写メ3　手順