I have the following code that deletes the entire row if its value is 900.
Sub RemoveRows900()
Dim i As Long
i = 1
Do While i <= ThisWorkbook.ActiveSheet.Range("AA7:AA1000").CurrentRegion.Rows.Count
If InStr(1, ThisWorkbook.ActiveSheet.Cells(i, 1).Text, "900", vbTextCompare) > 0...