Sub Macro1()
derlig = [A65000].End(xlUp).Row
With Range("A1:A" & derlig)
.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
Other:=True, OtherChar:="_", FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
TrailingMinusNumbers:=True
.Offset(0, 1).Resize(derlig, 1).TextToColumns Destination:=Range("B1"), _
DataType:=xlDelimited, Other:=True, OtherChar:="(", FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
TrailingMinusNumbers:=True
.Offset(0, 2).Resize(derlig, 1).Replace What:=")", Replacement:=""
End With
End Sub