Any ideas?

Sub MyTest()

' Variables

Row = 1

xROW = Cells(Row, 1)

Y = 1

' Work

Cells(Row, 1).Select

While Y > 0

Y = Len(xROW)

If Y > 0 Then

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

FieldInfo:=Array(Array(0, 2), Array(8, 2), Array(16, 2), Array(32, 2), Array(40, 2), _

Array(46, 2), Array(48, 2), Array(52, 2), Array(60, 2), Array(68, 2), Array(76, 2), Array( _

78, 2), Array(80, 2), Array(81, 2), Array(92, 2), Array(106, 2), Array(117, 2), Array(128, 2 _

), Array(139, 2), Array(153, 2), Array(156, 2), Array(159, 2), Array(170, 2), Array(181, 2) _

, Array(192, 2), Array(203, 2), Array(234, 2), Array(242, 2), Array(253, 2), Array(264, 2), _

Array(272, 2), Array(280, 2), Array(286, 2), Array(288, 2), Array(289, 2), Array(312, 9)) _

, TrailingMinusNumbers:=True

End If

Row = Row + 1

xROW = Cells(Row, 1)

Wend

End Sub