Produce error message when pasted values break validation rules

I have a (simplified example) matrix consisting of inputs and alarms. Each action (X) should have an input and an alarm i.e. no actions should be inserted in column E or row 6.

Capture.PNG

I used data validation to implement this and it works.

Capture2.PNG

However if I paste data to these cells they do not follow the validation rules. I inserted this VBA code to prevent this (extracted from www.j-walk.com/ss/excel/tips/tip98.htm):

Private Sub Worksheet_Change(ByVal Target As Range)
    'Does the validation range still have validation?
    If HasValidation(Range("ValidationRange")) Then
        Exit Sub
    Else
       Application.EnableEvents = False
       Application.Undo
        MsgBox "Your last operation was canceled." & _
        " It would have deleted data validation rules.", vbCritical
    End If
End Sub

Private Function HasValidation(r) As Boolean
'   Returns True if every cell in Range r uses Data Validation
    On Error Resume Next
    x = r.Validation.Type
    If Err.Number = 0 Then HasValidation = True Else HasValidation = False
End Function

However, this code also prevents values from being pasted into cells even when they do not break validation rules e.g. if I paste an X to input a;alarm 1, I get an error message. Is there any way to make the make the user aware if data he/she has pasted has broken data validation rules. This can be through error/warning message or highlighting of invalid cells, whichever is possible.

Thanks for the reply.

Yes I had ValidationRange set to D4:H8. In line with your comments I have altered the code to this:

Private Sub Worksheet_Change(ByVal Target As Range)

Range("D4:H8").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=AND(NOT(ISBLANK($C4)),NOT(ISBLANK(D$3)))"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "Stop"
        .InputMessage = ""
        .ErrorMessage = "Action Must Have Input and Output"
        .ShowInput = True
        .ShowError = True
    End With
    
    Me.CircleInvalid
    
End Sub

This now circles all cells that have no input or alarm. But I only want cells that have an action and no input or alarm to be circled.
To do this I know I must change the formula "=AND(NOT(ISBLANK($C4)),NOT(ISBLANK(D$3)))" but I am struggling with this. I am trying something like "=AND(ISBLANK,NOT(ISBLANK($C4)),NOT(ISBLANK(D$3)))" but this is giving an error. The answer should be pretty obvious but I can't figure it out!

Okay I figured it out. Code is:

Private Sub Worksheet_Change(ByVal Target As Range)

With Range("D4:H8").Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=OR(ISBLANK(D4),AND(NOT(ISBLANK($C4)),NOT(ISBLANK(D$3))))"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "Stop"
        .InputMessage = ""
        .ErrorMessage = "Actions Must Have Input and Output"
        .ShowInput = True
        .ShowError = True
    End With

Me.CircleInvalid
    
With ActiveSheet.CircleInvalid
    Circles = ActiveSheet.Shapes.Count
        If Circles > 0 Then
            MsgBox "Actions Must Have Input and Output"
        End If
End With

End Sub

Thanks for your help

Okay I found the formula that works:

"=OR(ISBLANK(D4),AND(NOT(ISBLANK($C4)),NOT(ISBLANK(D$3))))"

now I just need a line of code that produces an error/message box notifying the user why a cell has been circled.

e.g. If CircleInvalid=True
MsgBox "Cell circled because..."

Any ideas?