VBA to create a folder and move

[mancubus]

Sub vbax_63628_create_folders_move_files()

    Dim prntfldr As String, srcfldr As String, dstfldr As String
    Dim i As Long
    
    Worksheets("Sheet1").Select 'change Sheet1 to suit
    
    prntfldr = Range("C1").Value & "\"
    srcfldr = Range("C2").Value & "\"
    
    With CreateObject("Scripting.FileSystemObject")
        For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
            If Not .FolderExists(prntfldr & Range("B" & i).Value) Then .CreateFolder (prntfldr & Range("B" & i).Value)
            .MoveFile srcfldr & Range("A" & i).Value, prntfldr & Range("B" & i).Value & "\" & Range("A" & i).Value
        Next i
    End With

End Sub

ps: backup your files first or copy all in a test folder then test the code.
pps: can be done using array(s) but this should work for you.