Macro to clear only the contents of the cells which have a specific font colour

[Stellakyp]

Cells B2 to B1577 have contents in black and also in colour with RGBs red 51, green 51 and blue 153, and i want to keep only contents in black
can you please help me?

thank you in advance