VBA を使用して水平レコードをフラット レコードに変換する

Question

次の形式のレコードを変換しようとしています:

VBA を使用して、以下のようにフラット レコードにします。

VBA を使用してこれを開始するための方法について、いくつかヒントを教えていただけますか?