ExcelVBAで別シートからの情報を読み込み情報が無くなるまでループさせたい

今詰まっているポイントはどちらでしょうか？
現状できているところまでで結構ですので、実際のソースコードがあれば回答しやすいかと思います。

やりたいことの確認ですが、以下のイメージであっていますか？
セルが分かれているのか、1セルに埋め込まれたの情報なのかちょっと読み解けなかったです。

それか、コードの情報は残して、下に追加するこういう形でしょうか？

こちらがシート1の情報です⤵︎⤵︎⤵︎⤵︎⤵︎⤵︎⤵︎

こちらがシート2の情報です⤵︎⤵︎⤵︎⤵︎⤵︎⤵︎⤵︎

行いたいことは、シート1の(A1:C1)の情報を
シート2のそれぞれ色で対応された場所に当てはめる。
33行目まで行ったら、2行開けて(36行目から次の開始)今度はシート1の(A2:C2)の情報を
シート2のそれぞれ色で対応された場所に当てはめる。(シート2の黒い部分は固定分)
33行分まで行ったらext…

これを20回やりたいです。(シート1で3つまでしかないが実際は20項目ある)

なんとなくイメージは伝わりました。
色がついている部分のみ、シート1の値を埋め込んで出力していきたいというような感じですね。

やり方はいろいろ考えられるかもしれませんが、ぱっと思いついた方法をお伝えします。
以下のような流れで実装すれば、実現できそうです。

事前準備
以下のような基準となるシートを用意。
変えたい箇所を特定の文字列で置いておく。
説明のため、[A]・[B]・[C]としています。

シート2の現在行を保持しておく

シート1を1行ずつループ
　シート2に基準シートの情報を丸々コピー
　コピーした範囲分以下のように置換する
　　[A]を列Aの値で置換
　　[B]を列Aの値で置換
　　[C]を列Aの値で置換
　現在行を基準シートの行数+2だけ足す

文字をExcel上に出すことは出来ました。

あとはループとシート1で次の項目に当てはめて行くだけなのですが、どうすればよろしいでしょうか？
ご教授お願いします。

ソースありがとうございます。
ソースを載せる時は回答者も流用してから修正できるように、画像ではなくコードスニペットを利用して直接貼り付けていただけるとありがたいです。

シート1の値の取得と、シート2へのセルへの出力が現状固定数値になっていると思います。
そのあたりを変数に置き換えてループ処理に組み込めば行けると思います。

簡単ですが、シート1の情報を1行ずつ取得する部分を作成しました。

ご参考にしてください。

Sub test()
    Dim rowNO
    rowNO = 1
    
    Dim SRC_DIR, DST_DIR, MODULE_NAME
    
    SRC_DIR = Worksheets(1).Cells(rowNO, 1)
    DST_DIR = Worksheets(1).Cells(rowNO, 2)
    MODULE_NAME = Worksheets(1).Cells(rowNO, 3)
    
    Do While SRC_DIR <> ""
        Cells(rowNO * 3 - 2, 1) = SRC_DIR
        Cells(rowNO * 3 - 2, 2) = DST_DIR
        Cells(rowNO * 3 - 2, 3) = MODULE_NAME
    
        rowNO = rowNO + 1
        
        SRC_DIR = Worksheets(1).Cells(rowNO, 1)
        DST_DIR = Worksheets(1).Cells(rowNO, 2)
        MODULE_NAME = Worksheets(1).Cells(rowNO, 3)
    Loop

End Sub