Columns(3).TextToColumns Destination:=Range("C1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 4), Array(10, 9)), TrailingMinusNumbers:=True
Columns(4).TextToColumns Destination:=Range("D1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 4), Array(10, 9)), TrailingMinusNumbers:=True