Option Explicit
Public Sub delDouble()
Dim rng As Range, rngDel As Range
Dim lngRow As Long, lngLast As Long
With ActiveSheet
lngLast = .Cells(.Rows.Count, 3).End(xlUp).Row
For lngRow = 2 To lngLast
If .Cells(lngRow, 3).Value < Evaluate("MAX(IF(A2:A" & lngLast & _
"=" & .Cells(lngRow, 1).Value & ",C2:C" & lngLast & "))") Then
If rng Is Nothing Then
Set rng = .Rows(lngRow)
Else
Set rng = Union(rng, .Rows(lngRow))
End If
End If
Next
End With
If Not rng Is Nothing Then rng.Delete
End Sub