Sub separar()
Selection.TextToColumns Destination:=Range("C2"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(3, 9), Array(5, 1), Array(8, 9), Array(9, 1), Array _
(12, 9), Array(13, 1), Array(16, 9)), TrailingMinusNumbers:=True
End Sub