VBA MACRO to color ONE cell right to the Selected cells

Question

I have a macro that makes a formatting rule of multiple cell areas and must paint the cell yellow if it contains "S" and it works. But I would also like the cell to th