delete entire row if 'value' found anywhere in column - most efficient way?

Ive got the code below doing what i want, which is to delete an entire row if 'Unsettled' is found anywhere in a particular column.

Is there a more efficient way to do this when the number of rows is large?

Dim Counter As Long

Cells(2,colNum).Select    ' Starting point, row 2 in column 'colNum'

 For Counter = 1 To 25000     ' need to change 25000 to lastRow later
  If ActiveCell.Value Like "Unsettled" Then
   ActiveCell.EntireRow.Delete     ' Delete Row if 'Unsettled' is found in colNum
    Else
     ActiveCell.Offset(1, 0).Select     ' Move down a row
      End If
  Next Counter