Remove Duplicates in Keeping MAX Numerical/Alphanumeric Value from the Deleted Row's Duplicate

Sub aTest()
    Dim lastRow As Long, lastCol As Long
    Dim rngData As Range, vData As Variant, arrResult() As Variant
    Dim lin As Long, col As Long, cellMax As Variant
    
    With Sheets("Sheet1") '<--- adjust sheet name
        lastRow = .Cells.Find(What:="*", SearchOrder:=xlRows, _
                    SearchDirection:=xlPrevious, LookIn:=xlValues).Row
                
        lastCol = .Cells.Find(What:="*", SearchOrder:=xlByColumns, _
                    SearchDirection:=xlPrevious, LookIn:=xlValues).Column
        
        Set rngData = .Range("A1", .Cells(lastRow, lastCol))
        
        vData = rngData.Value
        ReDim arrResult(1 To UBound(vData, 2))
        
        For col = 1 To UBound(vData, 2)
            cellMax = Empty
            For lin = 1 To UBound(vData, 1)
                If vData(lin, col) > cellMax Then cellMax = vData(lin, col)
            Next lin
            arrResult(col) = cellMax
        Next col
        
        rngData.ClearContents
        .Range("A1").Resize(, UBound(vData, 2)) = arrResult
    End With
    
End Sub

Sub aTest()
    Dim lastRow As Long, lastCol As Long, i As Long, j As Long
    Dim rngData As Range, vData As Variant, v As Variant, lin As Long
    Dim dict As Object
    
    Set dict = CreateObject("Scripting.Dictionary")
    dict.comparemode = vbTextCompare
    
    With Sheets("Sheet1")
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Set rngData = .Range("A1", .Cells(lastRow, lastCol))
        vData = rngData.Value
        
        For i = 1 To UBound(vData, 1)
            If dict.Exists(vData(i, 1)) Then
                For j = 2 To lastCol
                    If .Cells(i, j) > dict.Item(vData(i, 1)).Cells(1, j - 1) Then _
                        dict.Item(vData(i, 1)).Cells(1, j - 1) = .Cells(i, j)
                Next j
            Else
                dict.Add vData(i, 1), .Range(.Cells(i, 2), .Cells(i, lastCol)).Cells
            End If
        Next i
        
        For Each v In dict.keys
            lin = lin + 1
            Sheets("Sheet2").Range("A" & lin) = v
            Sheets("Sheet2").Range("B" & lin).Resize(, dict.Item(v).Columns.Count).Value = dict.Item(v).Cells.Value
        Next v
        
        rngData.Rows(dict.Count + 1 & ":" & lastRow).ClearContents
    
    End With
        
End Sub