Repeat a process on all visible sheets then combine

I hope this makes some sort of sense:

I have a few lines of code that i need to repeat on all visible sheets of a workbook. The number of sheets and names of sheets will vary on a job by job basis but the cell locations do not change.

Here is what i am trying to repeat:

Please Login or Register  to view this content.

After repeating the above on all sheets, i want to combine the values (using Paste:=xlPasteValues) of (BI10:DA21) from all visible sheets to a sheet called CSV_Export starting at A5 on that sheet and repeating doward till all visible sheets have been copied to that sheet. I have no idea of how to make it repeat on visible sheets.

I found a way to repeat the process on all sheets using the following:

Please Login or Register  to view this content.

I am just about finished now with this project. Only problem i am facing now is that i need to shift all the data upwards by removing all the rows containing blanks. For some reason, after pasting the values of multiple sheets into my CSV_Export sheet tab, when i try to select the blank cells, it says the cells i copied and pasted from previous sheets are not blank. Although visually they are blank and they do not have spaces in them. The codes inside those cells return a "" if the IF command isnt true.

Currently, if I CTRL+SHIFT+DOWN to the bottom of the sheet, it acts like i have data down to row 88. But i really only have 7 rows containing data after i remove the blank rows manually.

You must feel like you hear the sound of one hand clapping ...

Post a workbook that illustrates the problem and explain in context.

Your copy/sort routine is completely different so I can't tell if this does what you want, but it does test for sheet visibility:

Please Login or Register  to view this content.