Selecting and deleting rows based on criteria

[patel]

Sub DeleteBlankRows()
    first = selection.row
    For r = Cells(Rows.Count, 1).End(xlUp).Row To first Step -1
        If Cells(r, 3) = "" or Cells(r, 3) = "NW" or Cells(r, 3) = "NE" Then Rows(r).Delete
    Next r
End Sub