VBAで特定の場所にあるCSVファイル（複数）から特定場所を抜き出してExcelに転記したいです。

VBAで特定の場所にあるCSVファイル（複数）から特定場所を抜き出してExcelに転記したいです。

画像①②がCSVファイルの中身になります。（①と②は同じファイルで③の転記のイメージの為分けてます）
画像③が転記後のExcelファイルのイメージになります。
①と②の色の部分が③転記のイメージになります。

1.CSVファイル（①のイメージ）からD8〜E32までを抜き出してExcelファイル（③）B3〜C27に転記。二つ目のファイルはDに。次はF.H.Jと転記していく。それに合わせて③の黄色部分（B1.D1.F1・・・）に抜き取ったファイル名を記載。ファイルは昇順で取得していく。

2.CSVファイル（②のイメージ）からE13〜E16、E21〜E24、E29〜E32を1.で転記した最後の行から一行空けて転記。
D9〜D12、D17〜D20、D25〜28はその次の行に転記。

3.はできるなら
1で出力した結果からExcelファイルの赤と橙の所に記載する方法も知りたいです。（③のイメージ）

1はファイル毎に転記。
2は一列にまとめて転記。

2は何となく出来たのですが1のやり方が分からず
ご教示いただきたく。
よろしくお願いいたします。

質問者からの補足コメント

• 失礼いたしました。
  画像アップいたしました。
  よろしくお願い致します。
  
  https://gyazo.com/00a9683a2d858348e5b2aa88784704e6

    補足日時：2023/05/23 22:34

• 不明点多く申し訳ありません。
  よろしくお願い致します。
  
  ①CSVファイルの拡張子は、.CSV で間違いないでしょうか。
  →.csvで間違いありません。
  
  ②ファイルは昇順で取得という条件が付いてますが、昇順に取得できるかどうかは、
  ファイル名に依存します。
  具体的には、どのようなファイル名になっているのでしょうか？
  →LS?.??_L0?.csv ?に数字が入って変動します。
  
  ③CSVファイルのセパレータは、カンマで間違いないでしょうか。
  →セパレータはカンマになります。
  
  ④１行目から７行目までが、空白行になっています。
  →実際は１行目から７行目も文字や数字が入っております。使わない場所だと思い文字等を消しておりました。
  
  ⑤CSVファイルの個々の項目は、ダブルクートで囲まれていますか。
  →囲まれていません。
  
  よろしくお願いいたします。

    補足日時：2023/05/24 16:20

• 補足要求
  
  １．あなたから提示された添付図の③についてです。
  ①B1,D1,F1・・にCSVファイル名を設定しますが、拡張子を含めて、設定しますか。
  それとも拡張子を除いて設定しますか。
  →拡張子は除いて設定お願いします
  
  ②U列に添付図②赤色の部分のセル、V列に添付図②オレンジの色のセルを設定しますが、
  この場合、CSVファイルが９個のケースであってますか。
  →あっています。
  
  又、CSVファイルが１つの場合は、E列（赤）とF列（オレンジ）に設定すると考えて良いですか。
  →そちらでお願いします
  
  ３．マクロを組み込んだブックに、あなたが提示した添付図③のシートを含めますがよろしいでしょうか。
  →お願いします
  又、この添付図③のシート名は、何でしょうか。
  →測定結果　でお願いします

    補足日時：2023/05/24 20:43

• ２．あなたが提示した要件の
  >3.はできるなら
  >1で出力した結果からExcelファイルの赤と橙の所に記載する方法も知りたいです。（③のイメージ）
  →こちらに関しては無視していただければ思います。
  よろしくお願い致します。

    補足日時：2023/05/24 20:44

• １．CSVファイルのファイル名ですが
  >LS?.??_L0?.csv ?に数字が入って変動します。
  
  ？は数字1桁で間違いないでしょうか。
  →1桁で間違いありません。
  
  ２．あなたから提示された添付図の③のコメント（A列）ですが、
  A4～A27のセルには、何を設定すれば良いでしょうか。
  →最初に読み取ったcsvファイルのB9〜B32を入れたく。
  
  よろしくお願い致します。

    補足日時：2023/05/25 10:37

• ありがとうございます。
  思ったような結果になりました。
  
  追加で申し訳無いのですが
  1.小数点第3位で四捨五入を行いたい
  2.画面更新などを無くして高速化を行いたい
  　画面更新以外もあれば設定頂きたく
  
  上記2点ご教示頂きたく
  よろしくお願い致します。

    補足日時：2023/05/25 16:24

• ２．CSVファイルは何件ほどありますか。
  上記の改修を行っても時間がかかりますでしょうか。
  →CSVファイルは6件で40秒から30秒に短縮はされました。ファイルを開かないといけないから時間がかかる感じでしょうか？
  
  ３．小数点第3位で四捨五入
  →書式設定で対応致します

    補足日時：2023/05/25 17:30

• だいたい１ファイル30列、32行で１つのファイルができています。
  大きいでしょうか？

    補足日時：2023/05/25 19:09

• 他でCADのソフトを使用していた為遅くなったと思われます。
  消して作業すると2秒程度で終わりました。
  お手数おかけいたしました。

    補足日時：2023/05/26 08:05

• 何度もすいません。最後のお願いとなります。
  画像のように文字に色をつける事はできますでしょうか？
  右に転記する部分の数字に色をつけたいです。

  
    補足日時：2023/05/26 09:43

No.1 回答者： tatsumaru77 回答日時： 2023/05/23 22:03

画像の内容が不鮮明でよくわかりません。

gyazo.comへアップされてはいかがでしょうか。
gyazo.comなら鮮明な画像がアップ可能です。

以下は、サンプルです。（画像の内容は本件とは関係ありません）
https://gyazo.com/f230d7ab82e83c8731aaaf787108031a