Duplicate Entries need to be Deleted after checking Date

[tgracey]

HI
I hope an easy Question:
My XL sheet has Duplicate entries what i need "Prune" according to the Latest EXPiry Date.
-
The Sheet is sorted by KNUMBER.
After an update from another File.It happens that there are multiple entries (every Week)!

I need to DELETE these entries from this sheet (the MASTER)
Any KNUMBER (Customer Number)that has a LATER EXP(iry) Date Remains
Can anyone help me with this..
I attach the Small file .
Many thanks in Advance

[MarvinP]

Hi tgracey,

I believe using the Advanced Filter with the "Unique Records Only" box checked will do what you want.
http://office.microsoft.com/en-us/ex...003073425.aspx

[tgracey]

HI Marvin,
many thanks for the TIP.
I did try that and although it will Delete many duplicate Records, which is really helpful it will not delete for example the one record on the Attached Excel sheet with a "Later Date"... which is what i am after,,
Any Ideas why not or how to get round it?
Thanks Again
Ted

[tgracey]

I have seen a Small Macro by CPearson what does the Trick, but once run there is no turning back Or -UNDO
Sub DeleteTheOldies()
Dim RowNdx As Long
For RowNdx = Range("A1").End(xlDown).Row To 2 Step -1
If Cells(RowNdx, "A").Value = Cells(RowNdx - 1, "A").Value Then
If Cells(RowNdx, "B").Value <= Cells(RowNdx - 1, "B").Value Then
Rows(RowNdx).Delete
Else
Rows(RowNdx - 1).Delete <<-- can this be changed to HIDE?
End If
End If
Next RowNdx
End Sub