text to columns on multiple columns

hello,

so I have a spreadsheet with approx. 600 columns and 38 rows. in every other column, I have a cell that needs text to columns with ( as the delimiter. I've tried to create a macro with the recording tool where I add in two blank columns and do text to columns on that section. but I dont want to have to perform this macro on every single section, as I'll be doing it about 300 times. Is there any way around this?

For reference, getting the top format from the bottom one, but for about 300 columns at the same time. Thank you so much for any help!

Sub text2()
    
    Dim i As Integer
    Dim rng As Range
    'Application.ScreenUpdating = False

    For i = 16 To 2 Step -2
        Range(Cells(1, i), Cells(38, i)).Select
        Selection.Insert Shift:=xlToRight
        Selection.Insert Shift:=xlToRight
        
        Set rng = Range(Cells(2, i - 1), Cells(38, i - 1))
        rng.Select
        
        Selection.TextToColumns Destination:=rng, DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="(", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
        
    Next i
    
    'Application.ScreenUpdating = True

End Sub

increase i to 300
for my test i only did up to column P which is 16
screenupdating turned on for debugging...turn off in actual

Try:

Sub AddAndSubtract()

    Dim l As Long
    Dim m As Long
    Dim lRow As Long
    Dim lCol As Long
    Dim x(3) As Long
    
    Application.ScreenUpdating = False
    lCol = Cells(2, Columns.Count).End(xlToLeft).Column
    lRow = Range("A65536").End(xlUp).Row
    
    For l = lCol To 1 Step -1
        If Cells(2, l).Value <> "" Then
            If InStr(1, Cells(2, l).Value, "(") <> "0" Then
                Cells(2, l).Offset(0, 1).EntireColumn.Insert
                Cells(2, l).Offset(0, 1).EntireColumn.Insert
                For m = 2 To lRow
                    x(0) = InStr(1, Cells(m, l).Value, "(")
                    x(1) = InStr(1, Cells(m, l).Value, ")")
                    x(2) = x(1) - x(0)
                    x(3) = Len(Cells(m, l).Value) - x(1)
                    Cells(m, l).Offset(0, 1).Value = Mid(Cells(m, l).Value, x(0), x(2))
                    Cells(m, l).Offset(0, 2).Value = Right(Cells(m, l).Value, x(3))
                Next m
            End If
        End If
    Next l
    Application.ScreenUpdating = True
End Sub

wow the code gets longer and longer!

I appreciate the responses. I should have just uploaded this originally so be more clear. In file below, what I need to do is separate the title coding from each persons name cell without getting rid of the bio that follows. Using text-to-columns doesn't work cleanly because some cells have more than one "(" which the delimiter I used. For example, "John Smith (CEO)(Prior)" would need to become "John Smith" and "CEO Prior" in two seperate cells, not three.

Also I can't lose the bio info that follows each name, so replacing the content of those cells with the title codes is no good. Ideally, each company in this list would have three columns, name, title, and bio and then be followed by a column border to help make this visually appealing to those I'll present it to.

I appreciate any help you can offer-I'm in over my head here. Thank you so much.

EDIT-I have only uploaded a piece of the file, original is too large but it should give you an idea of the layout.