Hi,

To the first macro you need only add this
Range("S1,V1,W1").Interior.Color = 4626167
and then to clear them again
Range("S1,V1,W1").Interior.ColorIndex = xlcolorindexautomatic