FIND string in cells and DELETE (or COLOR) rows

Hi all,
Example.xlsx

I am continuing my VBA education and have the following problem to solve. In the attached spreadsheet I need to:

- in column A find all cells that have ".hr" as part of the string inside cell (this ".hr" can be anywhere but it's important that characters are in that particular order; it's the domain extension)
- delete these rows

I believe that a certain combination of FIND or VLOOKUP and DELETE ROWS functions is need but am unsure how to right to right code. If it is too complicated to directly delete them, coloring these cells will also work fine (I can then sort rows by color, put colored ones on top, select them manually and simply right click> delete). Programmatic way would be favored though.

Many thanks for any help and all the best in this new year!