Dynamic Ranges - Create Using VBA as looping through Sheets

I wrote the attached code for another thread. It gives you some direction. I have put comment on each line. No every single line may be relevant to your case, it is just a guide.