Remove Duplicate (Prioritized on data in a different column)

Here's a little macro to do it:

Option Explicit

Sub DeleteDupes()
Dim DelRNG  As Range
Dim LR      As Long
Dim Rw      As Long

LR = Range("A" & Rows.Count).End(xlUp).Row
Set DelRNG = Range("A" & LR + 10)

Columns("A:B").Sort Key1:=Range("A2"), Order1:=xlAscending, _
    Key2:=Range("B2"), Order2:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
    
    For Rw = 3 To LR
        If Cells(Rw, "A") = Cells(Rw - 1, "A") Then _
            Set DelRNG = Union(Cells(Rw, "A"), DelRNG)
    Next Rw

DelRNG.EntireRow.Delete xlShiftUp
Set DelRNG = Nothing

End Sub