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
Cells(10, 6).Interior.Color = Cells(39, 6).Interior.Color
Cells(18, 6).Interior.Color = Cells(40, 6).Interior.Color
Cells(29, 6).Interior.Color = Cells(41, 6).Interior.Color
Cells(31, 6).Interior.Color = Cells(42, 6).Interior.Color
Cells(32, 6).Interior.Color = Cells(43, 6).Interior.Color
Cells(33, 6).Interior.Color = Cells(44, 6).Interior.Color
End Sub