Use VBA to change font colour of a cell based on its own value (date)

I have just found out that the VBA code will overwrite the pre-exisiting conditional formatting.
I will have to go back to the drawing board, so to speak!