Ambiguous name error

Something like this:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("J6")) Is Nothing Then
        Application.EnableEvents = False
        Range("H3:J3,L3:N3,L6:O3").ClearContents
    End If
    If Not Intersect(Target, Range("B14:B50")) Is Nothing Then
        Application.EnableEvents = False
        Range("C14:C50,D14:D50,E14:E50").ClearContents
    End If
    Application.EnableEvents = True
End Sub