VBA fill blanks if duplicate and delete old row of duplicates

[QuimOk]

I work with a long table and find myself having to repeat this operation weekly.
I don't know much programming and would appreciate some help.

Whenever I receive an update and add new info to the table I need to delete the old duplicates but keep the number in the first column. What I do manually is to order the name alphabetically, search for the blank cells in the first column, check if the cell to the right has a duplicate, copy the number in the first row into the blank and delete the old row.
I'm uploading an image of the original and desired results.

table-1.jpg

I know there is VBA code to find and fill blanks using IsEmpty but I am not able to add a second condition that checks for duplicates, and then deletes the old row.

Thanks for any help you can provide.

[kasan]

In case your data after update and sorting always looks like on attached picture, may be this will help

Please Login or Register  to view this content.

[QuimOk]

Nice, kasan! It works perfectly. Thanks