Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(13, 1), Array(18, 1), Array(26, 1)), _TrailingMinusNumbers:=True
