Selected rows sorted by column H's data's colors

VBA that will sort selected rows by column H's data's colors of Red, Black, or Green. In other words,
cell H1's data will be Black, H2's data will be Green, H3's data will be Green, etc & whole row will be moved to a section of it's H's column's data.

For example:

Unsorted column H's data colors of rows selected:
Black
Green
Green
Black
Red
Green
Red

Sorted column H's data colors of rows selected:
Black
Black
Green
Green
Green
Red
Red

I really would appreciate help. Thanks mikeburg

Sorry, I mean column H has actual figures or words that are "red", "black", and "green".

Thanks a bunch. mikeburg