Delete Blank Rows As far down as first used cell

[ScabbyDog]

I want a macro to look at col A row 1 and go through each cell in col A starting from the top until data is found in a cell. When this data is found, delete all rows above it.

[Jakobshavn]

How about:

Please Login or Register  to view this content.

[ScabbyDog]

Thanks!!! Perfect.

[Jakobshavn]

Thank you for the feedback.

[ScabbyDog]

Also Jakob, one more thing. How would I alter the code so that when it finds the 3rd used cell that has data in it, it deletes all above it?

[Jakobshavn]

I would use a slightly different approach:

Please Login or Register  to view this content.

[ScabbyDog]

Thanks Jakob. One last issue now and I am finished!.....How can I add an error handler so that if it does not find the 3rd used cell with data in it, that it exits the sub?

[Jakobshavn]

That should already happen??

[ScabbyDog]

I should re-word it. I want it so that if it doesnt find the 3rd used cell with data, then to delete ALL the rows on the sheet

[Jakobshavn]

Please Login or Register  to view this content.