Hi,

The simplest way would be to put the following function in I2 and copy it down

Formula: copy to clipboard
=IF(ISERROR(SEARCH("*.hr",A2)),"","Delete")


The filter the whole list for the word "Delete" in column I, select all those rows and hit delete.
This could of course also be automated in a macro once you confirm the essential process is doing what you want.