Put the following code with the worksheet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$Q$6" And Target < 0 Then
Target.Offset(1, 0).Interior.ColorIndex = 3
Else
Target.Offset(1, 0).Interior.ColorIndex = 0
End If
End Sub