Create New Workbook in a New Folder VBA CODE

[fari1]

I want a vba code that copies data from sheet1 workbook1 range A1:C30 and paste it into a new workbook after creating a new folder, the name of the workbook will be taken from the cell A1 from sheet2 from workbook1, and the name of the folder from the cell2 sheet2 workbook1. I also want the code to check if the folder already exists for that partiular name in cell A2, if it does then simply create a new workbook into that folder else create a new folder by that name and then create workbook into it.
hope i made my point clear.

Also this part of the code is a part of web query, the data is brought in with web query and then workbook and folders are get created, so please provide the code that works as a loop.

Thanks