VBA Delete Row Code - Need more efficient code to speed it up

I use the following to search 5000 rows and delete those that contain "YES" in column N. It is VERY VERY VERY slow, looking for optimization suggestions.

Thanks

Sub DeleteDatesNotInPool()
 Application.ScreenUpdating = False
    Sheets("GMS Data").Select
        Cells.Select
       
    Dim intRow As Integer
    Dim intLastRow As Integer
        intLastRow = Range("A" & Rows.Count).End(xlUp).Row

        For intRow = intLastRow To 1 Step -1
            Rows(intRow).Select

        If Cells(intRow, 14).Value = "YES" Then
            Selection.EntireRow.Delete
        End If
        Next intRow
      
        Range("A1").Select

  Application.ScreenUpdating = True


End Sub