Sub DeleteRows()
lRow = Range("AJ" & Rows.Count).End(xlUp).Row
Set MR = Range("AJ1:AJ" & lRow)
For Each cell In MR
If cell.Value < 1000 And cell.Value <> "" Then cell.EntireRow.Delete
Next
End Sub
Do let me know how this works out for you and if any adjustments are needed.