Поиск минимального и максимального значения - VBA

Формулировка задачи:

Здравствуйте, перерыл гугл и не смог найти решения. У меня есть 2 столбца, в одном имя параметра в другом значение. Надо что бы удалялись ячейки с промежуточными значениями параметра и оставались только максимальное и минимальное значение. Думал чин бы он столбец с именами сравнивал и если имя совпадает, то сравнивает столбец со значениями и удаляет промежуточные значения(извините за тавтологию). Не понимаю как можно это реализовать

Решение задачи: «Поиск минимального и максимального значения»

textual
                            Листинг программы 
                        

                            Sub main()
For r = 1 To 80
    Cells(r, 2) = CDbl(Cells(r, 2))
Next
[a:b].Sort [a1], , [b1], , , , , xlNo
For r = 79 To 2 Step -1
    If Cells(r + 1, 1) = Cells(r, 1) And Cells(r, 1) = Cells(r - 1, 1) Then Rows(r).Delete
Next
End Sub
                        