Sub RemoveParenthesized()

    Dim cel As Range, arr As Variant
    
For Each cel In Range("A1", Range("A" & Rows.Count).End(xlUp))
    If InStr(1, cel.Value, "(") > 0 And InStr(1, cel.Value, ")") > 0 Then
        arr = Split(Replace(Replace(cel.Value, "(", "|"), ")", "|"), "|")
        cel.Value = Trim(arr(0) & arr(2))
    End If
Next cel
End Sub