удалить повторяющиеся строки, выбрав наибольшее значение

Question

У меня есть данные с 3 столбцами и есть дубликаты.я хочу выбрать наибольшее значение из столбца C для каждого дубликата в столбце A. Есть ли более быстрый способ сделать это?

Sub HighestValues()

'This Sub is to pick the highest value if there are duplicates

Dim LastRow As Long
LastRow = Worksheets("Product Qty").Cells(Rows.Count, "A").End(xlUp).Row
Dim i As Long
Application.ScreenUpdating = False

For i = LastRow To 2 Step -1
    If Cells(i, "A").value = Cells(i - 1, "A").value Then
        If Cells(i - 1, "C").value > Cells(i, "C").value Then
        Rows(i).delete
        Else
        Rows(i - 1).delete
        End If
    End If
Next i

Application.ScreenUpdating = True
End Sub