ExcelのVBA:フォルダ内のファイルを次の条件で自動でフォルダ分けができませんでしょうか？

・Aフォルダ内に大量のCSVファイルを作成しています。
・ファイル名：（フォルダ名_４けたの連番）
・同じAフォルダに「0」「1」「2」の分類用空フォルダを作成しています。

・A列にファイル名、B列に0か1か２の分類用数字を入力した管理用Excelファイル（一覧）を作成しています。

・ExcelファイルのB列の分類用数字をキーとして、Aフォルダ内の「0」「1」「2」のそれぞれのフォルダにCSVファイルを分類し、コピーしたいと考えています。

よろしくお願いいたします。