Do Until Loop not working

Here is my code. It is getting errors that I don't understand. It will run through the loop various times and delete a chunk of rows like it's supposed to but then it will thow up different errors. its crazy. It works when I F8 through the whole thing but when I run it it always hits a snag and the debugger sometimes yellows out the "Loop" line and sometimes the "ActiveCell.Offset(-1, 0).Select" line and sometimes the "Cells(Rows.Count, 9).End(xlUp).Select" Line. I don't understand what is wrong with any of the code. It worked perfectly yesterday but I changed the query that is the source data and the test column is the 9th column and not the 11th. Any help would be appreciated. I have a data sheet with 1500 records for 7 different accounts and I want to write this code to make a separate worksheet for each account.

Please Login or Register  to view this content.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here


I can see you tried to put tags on, so I'll tell you this for now until you fix the tags:

1. Most likely the problem is with your .Select. If the row is deleted, you don't want to Select -1 row. But....
2. Don't use ActiveCell and Select. VBA doesn't need to activate or select cells; that's a human activity
3. The better/faster approach would be to filter on your two conditions, delete the visible cells, then remove the filter.

I'd be happy to help you with the last point