Sub A_2()
On Error Resume Next
Dim n1, n2, n3, n0 As Integer

For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
If Cells(i,  1 ).Value = "" Then GoTo Label1
n0 = Len(Cells(i,  1 ).Value)
n1 = InStr( 1 , Worksheets( 1 ).Range("A" & i).Text, "(")
'Cells(i, 2).Value = n1
n2 = InStr( 1 , Worksheets( 1 ).Range("A" & i).Text, "/")
'Cells(i, 3).Value = n2
n3 = InStr( 1 , Worksheets( 1 ).Range("A" & i).Text, ")")
'Cells(i, 4).Value = n3
Cells(i,  5 ).Value = Left(Cells(i,  1 ).Value, n1 -  1 ) & Mid(Cells(i,  1 ).Value, n2 +  1 , n0 - n2 -  1 )
Label1:
Next i
End Sub

n1 = InStrRev( 1 , Worksheets( 1 ).Range("A" & i).Text, "(")