Private Sub Worksheet_Change(ByVal Target As Range)
    Dim iValue As Single
    Dim iColor As Long
    Dim iRow, iClm, iRow1 As Integer

    iRow = Selection.Cells(1).Row
    iClm = Selection.Cells(1).Column

    Select Case iRow
    Case 8 To 14
       If 9 <= iClm And iClm <= 21 Then
          iValue = Abs(Cells(13, iClm).Value)
          If 100 < iValue Then iColor = 255
          If 75 <= iValue And iValue <= 100 Then iColor = 65535#
          If iValue < 75 Then iColor = 39168
          iRow1 = 13: PrintColor iRow1, iClm, iColor
       End If
    End Select

End Sub

Sub PrintColor(ByVal iRow As Integer, _
               ByVal iClm As Integer, _
               ByVal iColor As Long)
   Cells(iRow, iClm).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = iColor
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub