VBA Code to Download Files from sharepoint to Local Network drive

Hi all

I need all of your valued help in creating a macro to download (.xlsm)files from sharepoint folder/sub-folder and save as it is in the given designated local drive folder. Below I have given the sharepoint scenario:-

Sharepoint :

Main Folder > Sub Folder1 > File1.xlsm
> Sub Folder2 > File2.xlsm
> Sub Folder3 > File3.xlsm
> etc....

Likewise each folder has single file in it which needs to be downloaded and saved in the local folder.

Thanks in advance