vba code to find Duplicate Values and Newest date(Max) date in the Corresponding Column(ce

Friends i'm Creating Macro for "Locating Duplicate values in a Column n new date(Max date in Corresponding column)....i'm not Getting Logic for that pls Help me in the Coding...

i Data is like this

x y Result
3 8/6/2013 8/6/2013
3 8/5/2013
3 8/4/2013
2 9/3/2013 9/2/2013
2 9/2/2013
2 9/1/2013
1 9/6/2013 9/6/2013
1 9/3/2013
1 9/2/2013
i tried this by sorting..its Working Better for Small Data..but not for Large... Even i Want to Reduce the code Length..
Here is My code...

Please Login or Register  to view this content.

no need for such complicated macro no need for sorting etc
get uniuq values in x below the data and loop through the uniuq x values and use mim if formula

see below my macro

Please Login or Register  to view this content.