VBA to copy first to last row stopping at first balnk row...

[Louis85]

Hi

I am using the following code to select and copy the first to last row in multiple sheets to a "combined" sheet. I am not sure where I am going wrong but the macro doesn't select all rows up to the last row, it stops at the first blank row.

Please Login or Register  to view this content.

Please help

Thanks
Louis

[AB33]

use this line

Please Login or Register  to view this content.

[Louis85]

Hi AB33

It is still not selecting all the lines, for some reason it is stopping at line 28, I have various number of lines per sheet, ranging from 300 to 1250.

Column A is the main column where all data originate per line but there is a couple of blank rows in between the first and the last row.

Thanks for the help.

[AB33]

If this line does not work, I need to see your sample

Please Login or Register  to view this content.

[Louis85]

Hi AB33

Please see attached

Template 5.xlsm

Thanks

[AB33]

Thank you!
So you are trying to copy all sheets except the first 2, from columns A-Q in to combined sheet. Am I right?

[AB33]

You need to add headers in row 1 on combined sheet.

[Louis85]

Hi AB33

I get a Run time error 91: Object variable or With block variable not set.

Regards
Louis

[AB33]

Not my code. You have two codes on the module. You might have attached your button to your old code. If it is my code, in which line the code does error? You need to run my code from the module as I have not attached it to any button.

[Louis85]

Hi AB33

I did run it from the module

Please see below for the line:

Please Login or Register  to view this content.

Thanks

[AB33]

You need to add a header in row 1 as I did my self on combined sheet. That line of code will not work with blank sheet.
Since the code first clears existing data from row 2, you need to have a data in row 1.

[Louis85]

Thanks for the help.