Using the following VBA code will fulfill your requirement.

Sub InsertCol()

Dim iRowCount As Integer
Dim iColCount As Integer
Dim i As Integer
Dim j As Integer
Dim iPosStr As Integer
Dim iPosTimes As Integer
Dim NumStr As String
Dim myRng As Range


iRowCount = ThisWorkbook.Sheets("Sheet1").UsedRange.Rows.Count
iColCount = ThisWorkbook.Sheets("Sheet1").UsedRange.Columns.Count

For i = 1 To iRowCount
    For j = 1 To iColCount
        iPosStr = InStr(ThisWorkbook.Sheets("Sheet1").Cells(i, j), "Ö§")
        
        If iPosStr > 1 Then
            iPosTimes = InStr(ThisWorkbook.Sheets("Sheet1").Cells(i, j), "X")
            NumStr = Mid(ThisWorkbook.Sheets("Sheet1").Cells(i, j), iPosTimes + 1, iPosStr - iPosTimes - 1)
            'MsgBox NumStr
            Set myRng = ThisWorkbook.Sheets("sheet1").Range(Cells(i, j), Cells(i, iColCount))
            myRng.Insert Shift:=xlToRight
            ThisWorkbook.Sheets("Sheet1").Cells(i, j) = NumStr
        End If
    Next j
Next i

End Sub