Hi Daniel
It looks like the text is being compressed to a single column delimited with a semi colon. There is an excel function text to columns that will resolve the issue but you need to create a new action in the excel VBO to do this. I've provided the code I use below and a screenshot of the inputs, hope this helps.
Dim wb, ws As Object
Dim excel, sheet, range As Object
Dim matrix = New Integer (3, 1) {{1, 1}, {2, 1}, {3, 1}, {4, 1}}
Try
wb = GetWorkbook(handle, Source_Workbook)
ws = GetWorksheet(handle, Source_Workbook, Source_Worksheet)
Wb. Activate()
Ws. Activate()
excel = ws. Application
sheet = excel. ActiveSheet
range = sheet. Range(CellRange)
range. Select()
Excel. DisplayAlerts = False
Excel. Selection.TextToColumns (Destination:=sheet. Range(StartCell), DataType:=1, _
        TextQualifier:=Qualifier, ConsecutiveDelimiter:=Delimiter, Tab:=Tab, _
        Semicolon:=SemiColon, Comma:=Comma, Space:=Space, Other:=Other, OtherChar _
        :=Split_Char, FieldInfo:=matrix, _
        TrailingMinusNumbers:=True)
Success = True
Catch e As Exception
 Success = False
 Message = e.Message
Finally
 wb = Nothing
 ws = Nothing
End Try

------------------------------
Michael ONeil
Technical Lead developer
NTTData
Europe/London
------------------------------
					
				
			
			
				
	#MVP