Remove Duplicate Data by Specify Columns and Their Date

[parscon]

Hi , I have About 40000 Row that need to check their column A and K and if they are same delete all of the row except only one row with the newest date than others. (Keep latest date )
If you check the below image you will understand better .


Sample.jpg

Hope someone can help me

Really appreciate for your effort and time .

Regards.

[mana]

Sub test()
    Dim r As Range
    
    Set r = Cells(1).CurrentRegion
    
    r.Sort Columns("j"), xlDescending
    r.RemoveDuplicates 1
    r.Sort Columns("a"), xlAscending
    
End Sub

[parscon]

Appreciate for your great work .