When evaluating rows to delete I have found it best to work
from the bottom of the range up.
Copy, paste and modify the following into your Subroutine.
Dim i, c As Double
c = Range("A65536").End(xlUp).Row
For i = c To 1 Step -1
If Cells(i, x) > 299 or Cells(i, x) < 200 Then
Rows(i).Delete Shift:=xlUp
End If
Next
*where x is the column number that rev_org can be found