Dim precedent As Range
Dim i As Integer, j As Integer
Private Sub Worksheet_Calculate()
Set cht = ActiveSheet.ChartObjects(1).Chart
With cht.SeriesCollection(1)
For i = 1 To .Points.Count
Cells(i + 38, 6).Interior.Color = .Points(i).Interior.Color
Next
End With
For j = 39 To 44
With Range("F" & j)
For Each precedent In .DirectPrecedents
precedent.Interior.Color = .Interior.Color
Next
End With
Next j
End Sub