https://www.dropbox.com/s/26nenkmsce...ftge.xlsm?dl=0

My file.
I inputted this code into each of the four sheets. It's the closest I got to it working (not on the dropbox one)
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
The first sheet "order" works totally fine. But with the other three, only the first half runs.