Copy/Paste Multiple Dynamic Ranges below each other

Hello All,

Could use some help with a macro. I have a workbook with 30+ worksheets. Each worksheet has a range of values, the columns are always the same but the number of rows are different for each sheet - hence dynamic range. What I need is a macro something like that:

- Go to Sheet 1
- Copy Range in Sheet 1 (currSheet)
- Paste in Sheet named "Query"
- Go to Sheet 2
- Copy Range in Sheet 2 (currSheet)
- Paste in Sheet "Query" BELOW the previous range that was pasted
---Rinse & Repeat for all worksheets in workbook----

So basically I would be making a list of the ranges in a sense (if that makes sense)

I get a "Subscript Out of Range" error at the copy/paste code line:

Please Login or Register  to view this content.

Prior to this line I have some code that loops through and does some formatting stuff on all sheets

Any advice/help would be much appreciated.

Can't seem to attach the workbook...is there a size limit on uploads?

Cheers.

Here is the full code. Let me know if you need the workbook.:

Please Login or Register  to view this content.

Originally Posted by :) Sixthsense :)

The full code seems to be ok... but I need a sample file to fix the issue

Is there a cap on the upload file size? The workbook is 2.8MB but won't let me upload...

Genius! Here it is

Where would you Set the current and new workbook? If i put these outside the first For loop, I get an subscript out of range error at the allSheets line, shown below:

Please Login or Register  to view this content.

And I've activated the current and new sheet within the first for loop:

Please Login or Register  to view this content.

Beautiful! Works greats.

Thanks a lot man