Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(8, 1) <> "" Then Cells(8, 1).Interior.ColorIndex = 36 Else: Cells(8, 1).Interior.ColorIndex = 2
If Cells(9, 1) <> "" Then Cells(9, 1).Interior.ColorIndex = 36 Else: Cells(9, 1).Interior.ColorIndex = 2
If Cells(10, 1) <> "" Then Cells(10, 1).Interior.ColorIndex = 36 Else: Cells(10, 1).Interior.ColorIndex = 2
End Sub