VBA to Update status Column based on recent date

Hello , I need your help please

I have very large database file about 100000 rows and 20 column , sample example as follow


Column A( Name) Column B( Date) Column C ( Status)
15600-DP-C-01452 4/10/2017 Superseded
15600-DP-C-01452 5/11/2017 Current
15600-DP-C-01452 1/25/2017 Superseded
15600-DP-C-01452 2/28/2017 Superseded
15600-DP-C-02345 3/07/2017 Superseded
15600-DP-C-02345 1/24/2017 Superseded
15600-DP-C-02345 1/12/2017 Superseded
15600-DP-C-02345 4/13/2017 Current

I need to have VBA code to look up the value in Column A and then search for the most recent date in Column B corresponding to this value , and then add the work “ current “ in the adjacent cell for this date and “ superseded” to the old date

Hope my request is clear

Hi, thanks a lot for your reply

Sorry , but really I don’t understand what do you mean by “Can the data be sorted into date within name “

I don’t want to go for array formula because when I use it in my original file I cant work with it , too much data , so I wish to have VBA code

I have attached new sample for same structure of my original file and kindly if you can insert VBA code.

Column A : Document Name
Column E: Rev. Status
Column M: Received_Date


I wish to find the most recent date from column M for the document name from column A and put the word “ Current” into adjacent cell in column E “Rev. Status” .

Thanks in advance for your help