Macro to Deleting Multiple Rows

Hello, I am running a simple formula in excel to sort out duplicates from a given row, by adding the value "DUP" in a new column on the spreadsheet. Once that is done I run the following macro to delete all the rows that have the value "DUP". The problem I am having is that the macro runs on a loop so every line of the spreadsheet has to be looked at. Wondering if anyone has a macro that I could run that wont run on a loop. The spreadsheet that I am working with has between 5000 - 10000 lines so this is taking alot of time to complete.

Dim intRow
Dim intLastRow
intLastRow = Range("F65536").End(xlUp).Row
For intRow = intLastRow To 1 Step -1
Rows(intRow).Select
If Cells(intRow, 5) = "DUP" Then
Cells(intRow, 5).Select
Selection.EntireRow.Delete
End If
Next intRow

Thank you in advance for your help,

Matt