Hi Austen,


So, will this always be 3 rows? Trying to follow the flow of information here. Also, there is no need to do a 'r = r - 1' line, you are already looping with a For r loop and stepping backwards 1 step every iteration. Are you wanting it to step everyrow, and when it find a blank row step for 2?

Also, I'd take your routine out of your ThisWorkbook module and put it into a Standard Module.

When I ran your code, it deleted all of the rows. What is the input of information? You just want the first line remaining, right?