VBA - folder/file names to spreadsheet list

Here are the details:

Archive folder, where I'll prompt it to ask which folder to start from (year). I'd like it to move to the next column, then list the subfolders (months), then for each subfolder list in the next column (for days). Then, lastly, the subfolders (job #), listed in the next column. I've attached an example of what i'd like it to look like after code is done. Is this possible?

Thanks for any help you guys/gals can give me!!