Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 1 Then
    
        If Target.Offset(0, -1).Value < Target.Value Then
            With Target.Interior
                .Pattern = xlSolid
                .Color = 5287936
            End With
        Else
            With Target.Interior
                .Pattern = xlSolid
                .Color = 255
            End With
        End If
        
    Else
        'Если в первой ячейке и нет предыдущих значений
        With Target.Interior
            .Pattern = xlSolid
            .Color = 255
        End With
    End If
End Sub