Filtrar por criterio más alto.

He tardado un poco porque he tenido que pensar como generar la macro, te explico, en base a tu ejemplo estas utilizando las columnas A, B, C y DE pues no encuentro otra solución que utilizar otra columna para basarme en ella y localizar las variables posibles de la Col A, que ya he analizado, como este dato no te servirá de nada cuando hayas hecho uso de la macro seleccionas la col E y pulsas en supr (que tampoco es tanto trabajo).
He utilizado las letras A(alto) y B(bajo) para indicar que valor es el más alto de la variable que estoy comprobando en cada pasada de ciclo. Al final después de dar "valor A o B" a cada variable hago un autofiltro para que solo te muestre las A que serán los valores más altos de cada variable. Debes de tener cabeceras en las columnas A, B, C, y D.
Esperemos que te sirva, pruebalá y me cuentas.
Sub Otra()
Dim nomb, valor, primer As String
Sheets("Hoja1").Select
Range("A1").Select
ActiveCell.End(xlDown).Select
Do While ActiveCell.Address <> "$A$2"
nomb = ActiveCell.Value
valor = ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(0, 4).Value = "A"
primer = ActiveCell.Offset(0, 2).Address
Do While ActiveCell.Address <> "$A$2"
ActiveCell.Offset(-1, 0).Select
If ActiveCell.Value = nomb And ActiveCell.Offset(0, 1).Value < valor Then
ActiveCell.Offset(0, 4).Value = "B"
End If
If ActiveCell.Value = nomb And ActiveCell.Offset(0, 1).Value > valor Then
ActiveCell.Offset(0, 4).Value = "A"
ActiveCell.Offset(0, 1).Value = valor
Range(primer).Value = "B"
End If
Loop
ActiveCell.End(xlDown).Select
Do While ActiveCell.Offset(0, 4).Value <> ""
If ActiveCell.Address = "$A$2" Then Exit Do
ActiveCell.Offset(-1, 0).Select
Loop
Loop
Range("A1:E1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:="A"
End Sub
>Un saludo
>Julio
PD: Pones la macro en un modulo y se la asignas a un botón en la hoja para ejecutarla, si te gusta así.