Do While loop not breaking?

Hello

Perhaps there is a better way to write my intentions, but I decided to write a Do...While loop in order to delete all the Steps (in rows) after #1. However, it is deleting more than it should, but it shouldn't be that way. Since I'm always checking whether the .Value <> "", it should immediately break if the value of the particular cell that I'm looking for is blank.

However, the loop continues to delete one more row after that, so I'm confused why the conditional is not acting correctly. Any help in this would be greatly appreciated.

The worksheet labeled "System_Template_Intention" is my intended action and the "System_Template_Result" is what I get after running the macro "DefaultReset"

Thanks in advance for your help

It's not the code that's wrong, it's the fact that A8 contains as space & therefore is not ""

Originally Posted by JBeaucaire

This will do what you want:

Please Login or Register  to view this content.

I do not recommend repetitive deletions on a worksheet when it can be done all at once at the end.

Does your code work if the first column contains things other than numbers. There are some scenarios I can think of in which the values are strings as well.

@JBeaucaire

I copied your code into my sample workbook and only took out the the

Please Login or Register  to view this content.

within the Do Loop because I wanted wanted to do other stuff after I finished deleting the rows.

However, this resulted in a Runtime error 424: Object Required. It succesfully deletes the intended rows, but cannot execute the rest of the code (clearing the contents in Sequence #1).

See my attahment.

Thank you everyone for your help.

You're welcome & thanks for the feedback