I've changed the other code and both work fine on their own.
I can't figure out how to combine them however.

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
                        
exitHandler:
  Application.EnableEvents = True
  Exit Sub

                             
    

 Private Sub Worksheet_Change(ByVal Target As Range)
    
     

On Error Resume Next

    If Not Intersect(Target, Range("B14:B50")) Is Nothing Then
    
        Application.EnableEvents = False
        Range("C14:C50,D14:D50,E14:E50").ClearContents
        
   End If
   
exitHandler:
  Application.EnableEvents = True
  Exit Sub


End Sub