excel - 部分的なファイル名に基づいて、ファイルをそれぞれのフォルダーに移動する

Question

あなたが素晴らしいことを願っています！

部分的なファイル名のみを使用して、ファイルをそれぞれのフォルダーに移動するために使用できるコードを教えてください。個別のサブフォルダーを正常に作成しましたが、ファイルをそれぞれのフォルダーに移動する方法がわかりません。 これが私の作業ファイルです。

フォルダーを作成するための私のコードは次のとおりです。

Sub MakeFolders()
Application.ScreenUpdating = False
Sheets("LIST").Select
Range("G12").Select
ActiveCell.Formula2R1C1 = _
        "=UNIQUE(FILTER(RC[-2]:R[188]C[-2],RC[-2]:R[188]C[-2]<>""""))"
Range("G12").Select
Range(Selection, Selection.End(xlDown)).Select
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
Sheets("LIST").Select
Range("G12").Select
Selection.ClearContents
MsgBox ("PM folders created.")
End Sub

作成したフォルダーにファイルを移動するには、ここに何を追加できますか?

どうもありがとう！