Paste the contents of several folders into a spreadsheet

Using a macro, I'm wanting to take a folder that has several sub-folders and have the sub-folder names go in the top row of each column in a spreadsheet and the files within each folder entered below each corresponding folder, preferably while being able to specify file types. I found a macro for pasting the contents of one folder at a time, but it doesn't enter the folder name, it doesn't loop and it places the file name starting on the active cell. I just want A1 to have the name of subfolder 1, B1 to have subfolder 2, and so on. It would also be nice if it added a new sheet each time the macro was ran. Can anyone help me with this?

It would be a listing of the filenames. For example, I would want it to list all the tif filenames in every subfolder in each column under the subfolder's name.

Thanks for the code. I gave it a try and I keep getting a "variable not defined" compile error for the LoopController sub routine for some reason. I am not experienced enough to figure it out unfortunately. From what I can tell the macro appears to be just what I was looking for with lots of flexibility. Any ideas on what could be causing the error?

I just opened a blank spreadsheet and VB, then pasted the code into a newly inserted Module and ran it. Is there supposed to be something in the spreadsheet prior to running the macro?

I don't know what is different, but I tried running it and it worked without getting any compiling errors. Thanks for the code!