Delete Rows

I posted a similar post earlier this week, got an answer, and marked it as solved. Although the code is awesome its not working in all cases. Here is the code I have currently,

Please Login or Register  to view this content.

My goal is to get Sheet1 to look like Sheet2 on the attachment with this post. If you can think of a better way to do this please let me know.

This might give you an idea of what the macro is doing right now.

1. Scan Column A for contents. As soon as you find a row with contents look at the same row in Column F. If the value in Column F is greater than or equal to zero delete the row and continue deleting rows until Column A has contents in it again, and repeat the pattern for every row in Column A and Column F.

This macro is great. There is one stubborn group of rows that has a zero in Column F and they won’t get deleted, even when I run the macro a second time. I’ve spent a lot of time looking at the row trying to figure out why it won’t get deleted but I can’t figure out why.