Dear pros,

I have got a table with a couple thousand of line entries and a number of columns. One of the columns contains document names (one per line, example pls. see below). For purposes of further data processing, I consider all document names with the same 21 leading digits (so everything up to and including the last dash) as identical. I am looking for a vba code that deletes identical / redundant lines and only keeps the lines with document name ending on 01. In the example below, lines 1 and 4 are to be kept and 2,3,5,6 deleted.

Thanks in advance!
Noah

322-215000-02-1-1-PR-01
322-215000-02-1-1-PR-02
322-215000-02-1-1-PR-03
322-215000-02-1-2-PR-01
322-215000-02-1-2-PR-02
322-215000-02-1-2-PR-03