Private Sub Worksheet_Change(ByVal Target As Range)
'If more than one root cell might be updated eg paste Values to whole range
If Intersect(Target, Range("H8:I13")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each Cell In Range("H8:I11").Cells
Cell.Offset(0, -4).Interior.Color = Cell.DisplayFormat.Interior.Color
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub