VBA code to automatically move files to subfolders based on a predefined list

VBA code to automatically move files to subfolders based on a predefined list

I have a folder containing over 1000 files. I want to move these files to subfolders based on a predefined list in Excel that corresponds filenames to the name of the subfolders to which the file should be moved to, such as the example below:

table.png

Could anyone please develop a VBA code to do this?
Thanks so very much in advance.