If there are more than 2 blank adjacent rows, delete them

Hello,

I would appreciate some insight or help in getting the following pseudo code translated to VBA... I am checking all rows from ROW 1 to ROW X for blank rows. If it finds more than 2 blank rows, delete the rows until it either hits variable X or makes it 2 blank rows between data, so essentially turning this:

*Data Rows---*
*Blank Row*
*Blank Row*
*Blank Row*
*Blank Row*
*Blank Row*
*Blank Row*
*Data Rows---*
*Blank Row*
*Blank Row*
*Blank Row*
*Row X*

into this:

*Data Rows*
*Blank Row*
*Blank Row*
*Data Rows*
*Blank Row*
*Blank Row*
*Row X*

My Brain is fried right now, and I am at my witts end... I know I must have a for loop and Row X must be subtracted by 1 every time a blank row is found and removed...

Pseudo Code:

Please Login or Register  to view this content.

Thanks for any help, much appreciated!

Hi,

Maybe?

Please Login or Register  to view this content.