Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:AF")) Is Nothing Then
    On Error GoTo ExitSub
    ***
    End If
ExitSub:
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:AF")) Is Nothing Then
        
        If Target.Value = "" Then
            Select Case Target.Row
                Case 1
                    r = 0
                Case 2
                    r = -1
                Case Else
                    r = -2
            End Select
            Range(Target, Target.Offset(r, 0)).Interior.ColorIndex = xlNone
            Range(Target, Target.Offset(r, 0)).Font.ColorIndex = xlAutomatic
        End If
        
        If Target.Value = "444" Then
            Select Case Target.Row
                Case 1
                    r = 0
                Case 2
                    r = -1
                Case Else
                    r = -2
            End Select
            Range(Target, Target.Offset(r, 0)).Interior.Color = 255
            Range(Target, Target.Offset(r, 0)).Font.ColorIndex = xlAutomatic
        End If
    
    End If
End Sub

Function ifcolor(a As Range, b As Range)
    Dim i As Long
    i = a.Interior.color
        
    Select Case i
    Case Is = 255: ifcolor = a.Value + b.Value
    Case Is = 5287936: ifcolor = a.Value * b.Value
    Case Else: ifcolor = "нет цвета"
    End Select
        
End Function