Sub es()
Dim i As Long
Application.ScreenUpdating = 0
For i = Cells(Rows.Count, 6).End(3).Row To 2 Step -1
If Cells(i, 6) = Cells(i - 1, 6) Then
If Cells(i, 5) < Cells(i - 1, 5) Then Rows(i).Delete
If Cells(i - 1, 5) < Cells(i, 5) Then Rows(i - 1).Delete
End If
Next i
End Sub