Connecting two VBA codes (Private Sub Worksheet_Change(ByVal Target As Range)

Hi everyone,

this is my first post so sorry in advance if I am doing anything wrong.

I am total "tabula rasa" when it comes to VBA. PLs help me to combine some code which would do the following:

I have one Oval shape which changes color due to value in cell A1.

It would be great if I could multiply this shape and connect it with cells A2, A3, A4 and so on.

Point is to get shapes which change they color when values in A cells changes between "MC", "HE", "CA" and "OTH" (in original workbook they are result of vlookup formula).

Example is attached.

Thanks a million,

Tin