Okay, let's take a look at a couple of things.
In the below ..
City Name Change will effect color in ell C26,which will effect color in C29 and effect C30 thru C33 Then
.. I think you meant C32?? That would make it the same pattern as the rest.
If so, maybe this will work for you? I'm assuming they are all based off of the value in A2...
<font face=Tahoma New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>
<SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Compare</SPAN> <SPAN style="color:#00007F">Text</SPAN>
<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Change(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)
<SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, n <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, tRow <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">If</SPAN> Target.Address = "$A$2" <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#007F00">'<<== CATALYST</SPAN>
Application.EnableEvents = <SPAN style="color:#00007F">False</SPAN>
tRow = Target.Row
<SPAN style="color:#00007F">Select</SPAN> <SPAN style="color:#00007F">Case</SPAN> Target
<SPAN style="color:#00007F">Case</SPAN> "criteria 1"
<SPAN style="color:#00007F">For</SPAN> n = 3 <SPAN style="color:#00007F">To</SPAN> 8 <SPAN style="color:#00007F">Step</SPAN> 5 <SPAN style="color:#007F00">'cols C and H</SPAN>
<SPAN style="color:#00007F">For</SPAN> i = 26 <SPAN style="color:#00007F">To</SPAN> 191 <SPAN style="color:#00007F">Step</SPAN> 11
Cells(i, n).Interior.ColorIndex = 5 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 3, n).Interior.ColorIndex = 6 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 4, n).Interior.ColorIndex = 7 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 7, n).Interior.ColorIndex = 8 <SPAN style="color:#007F00">'set color</SPAN>
<SPAN style="color:#00007F">Next</SPAN> i
<SPAN style="color:#00007F">Next</SPAN> n
<SPAN style="color:#00007F">Case</SPAN> "criteria 2"
<SPAN style="color:#00007F">For</SPAN> n = 3 <SPAN style="color:#00007F">To</SPAN> 8 <SPAN style="color:#00007F">Step</SPAN> 5 <SPAN style="color:#007F00">'cols C and H</SPAN>
<SPAN style="color:#00007F">For</SPAN> i = 26 <SPAN style="color:#00007F">To</SPAN> 191 <SPAN style="color:#00007F">Step</SPAN> 11
Cells(i, n).Interior.ColorIndex = 3 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 3, n).Interior.ColorIndex = 4 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 4, n).Interior.ColorIndex = 9 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 7, n).Interior.ColorIndex = 10 <SPAN style="color:#007F00">'set color</SPAN>
<SPAN style="color:#00007F">Next</SPAN> i
<SPAN style="color:#00007F">Next</SPAN> n
<SPAN style="color:#00007F">Case</SPAN> <SPAN style="color:#00007F">Else</SPAN>
<SPAN style="color:#00007F">For</SPAN> n = 3 <SPAN style="color:#00007F">To</SPAN> 8 <SPAN style="color:#00007F">Step</SPAN> 5 <SPAN style="color:#007F00">'cols C and H</SPAN>
<SPAN style="color:#00007F">For</SPAN> i = 26 <SPAN style="color:#00007F">To</SPAN> 191 <SPAN style="color:#00007F">Step</SPAN> 11
Cells(i, n).Interior.ColorIndex = 22 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 3, n).Interior.ColorIndex = 13 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 4, n).Interior.ColorIndex = 14 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 7, n).Interior.ColorIndex = 44 <SPAN style="color:#007F00">'set color</SPAN>
<SPAN style="color:#00007F">Next</SPAN> i
<SPAN style="color:#00007F">Next</SPAN> n
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Select</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
Application.EnableEvents = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>
You can just copy/paste more criteria and change the color if you desire. The copy/paste would be using this code ...
<font face=Tahoma New> <SPAN style="color:#00007F">Case</SPAN> "criteria 1"
<SPAN style="color:#00007F">For</SPAN> n = 3 <SPAN style="color:#00007F">To</SPAN> 8 <SPAN style="color:#00007F">Step</SPAN> 5 <SPAN style="color:#007F00">'cols C and H</SPAN>
<SPAN style="color:#00007F">For</SPAN> i = 26 <SPAN style="color:#00007F">To</SPAN> 191 <SPAN style="color:#00007F">Step</SPAN> 11
Cells(i, n).Interior.ColorIndex = 5 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 3, n).Interior.ColorIndex = 6 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 4, n).Interior.ColorIndex = 7 <SPAN style="color:#007F00">'set color</SPAN>
Cells(i + 7, n).Interior.ColorIndex = 8 <SPAN style="color:#007F00">'set color</SPAN>
<SPAN style="color:#00007F">Next</SPAN> i
<SPAN style="color:#00007F">Next</SPAN> n</FONT>
Is this more what you're looking for?