Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Intersect(Target, Range("B4:p37")) Is Nothing Then Exit Sub
For Each Cel In Intersect(Target, Range("B4:p37"))
If Cel.Borders(xlEdgeRight).LineStyle = xlContinuous And UCase(Cel) = "X" Then
Range(Cel.Offset(-6, 0), Cel).Interior.ColorIndex = 15
Else
Range(Cel.Offset(-6, 0), Cel).Interior.ColorIndex = 2
End If
Next Cel
End Sub