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