Code not working as planned

this is my code:

Private Sub Worksheet_Change(ByVal Target As Range)
'
' What_If Macro
'This Macros deletes one cell if another has a value in it

'For Medium duty cell inputs
Application.EnableEvents = False
If IsNumeric(Target.Value) Then
'Clear the Invalid entry
Range("L4").ClearContents
Range("L5").ClearContents

If Target.Address = "$K$4" Then
Range("K5").ClearContents
ElseIf Target.Address = "$K$5" Then
Range("K4").ClearContents
End If
Else
Range(Target.Address).ClearContents
Target.Next = "Invalid Input"

End If


'For Severe Service cell inputs

If IsNumeric(Target.Value) Then
'Clear the Invalid entry
Range("L28").ClearContents
Range("L29").ClearContents

If Target.Address = "$K$28" Then
Range("K29").ClearContents
ElseIf Target.Address = "$K$29" Then
Range("K28").ClearContents
End If
Else
Range(Target.Address).ClearContents
Target.Next = "Invalid Input"

End If


'For Heavy Duty cell inputs

If IsNumeric(Target.Value) Then
'Clear the Invalid entry
Range("L48").ClearContents
Range("L49").ClearContents

If Target.Address = "$K$48" Then
Range("K49").ClearContents
ElseIf Target.Address = "$K$49" Then
Range("K48").ClearContents
End If
Else
Range(Target.Address).ClearContents
Target.Next = "Invalid Input"

End If
Application.EnableEvents = True

End Sub

--------
It works perfectly for K4 and K5;

However for L28, L29, L48, and L49 the invalid input entry is not showing up properly. Please let me know what I am doing incorrectly

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here