VBA - Loop through all folders and move all subfolders in each folder to a subfolder 2018

[netuser]

Hi,

I have large number of folders inside which I have subfolders (child folders) that I would like to move them to a new subfolder 2018 (macro should create it).

In summary I need to archive all these subfolder inside each folder to a folder of last year 2018.

Thanks for your help