Macro to delete blank rows with formulas

Hello, thanks up front for any assistance. I have a macro working well for a report that needs a couple of tweaks, including what I am asking for here. To accommodate reports of up to about 2000 lines of data, formulas are included up to row (approx) 2000. After running the macro, I have to manually delete additional rows to avoid printing a few hundred pages. The challenge is, some reports contain a blank row of data, so I cannot find the first blank line and delete the rest.

In this case, am thinking we could find two blank rows in a row, and delete from there. Reason being, the report is split into sections based on a "rating", and if one or more people are not "rated", the row above that section (group of people not rated) is blank.

Any idea on how to best select the remaining blank rows and delete them from the report so they are not included in printing?

Thanks as always, appreciate the assistance.
Sheryl

Hi, thanks so much for the quick response. What does adding before a print event mean?

Thanks!

It is good to have friends, even if it's Google. I did of course search, which led me here. Thanks for your help.
Sheryl

Hi Sheryl,

Would an extra column with a filter do the trick?
See attachment.

Or do you need to do this with VBA?


Ton.

Hi All, thanks for the responses, all helpful. VBA is preferred in this case because this type of report is associated with high volume reporting, so we try and include as much as possible within the macro. Not the biggest deal to remove the added lines but because prefer to have it deleted automatically.

Is this too complex?

Thanks again for any help.
Sheryl

Hi Keebellah, yes, that is correct, and I am looking to have the macro delete those rows. My challenge is, finding the last row will not always work because there could be one blank row before the rows of data end. Within the macro, additional lines are added to break out sections of "ratings" however not everyone will have a rating, and therefore a blank line is inserted for those without a rating as well.

Therefore, I need to find the second blank row, or find two blank rows in a row to determine where to start deleting. This is where I got stuck with VBA. Any thoughts?

Thanks.

Maybe?

Please Login or Register  to view this content.

Thank you!!! I think this can do the trick!

Best, Sheryl

I realize that this is an older sub...

John's VB works but is there a way to apply it to all of the worksheets?

Welcome to the Forum. It's best to post a new thread when you need help. This being an older thread other folks might hesitate to read or help. You can always reference this thread in the new one by copying and posting the link. Anyway try this:

Please Login or Register  to view this content.

I'm sure that your ranges are a bit different though. If you can be more specific as to what you want to achieve maybe we can help your further.