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.

Sub CashCashEq()

ActiveSheet.Copy After:=Worksheets(Worksheets.Count)

Cells(Rows.Count, 9).End(xlUp).Select

Do Until ActiveCell.Row = 1

If ActiveCell.Value <> 111595 Or ActiveCell.Offset(0, -1).Value <> 10 Then ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select

Loop

End Sub