Formula Inteligente y Complicada

[dubiweb]

muchas gracias por tu ayuda y también encontré este macro que me pasaron en ínter que también hace lo mismo, que te delimita y te separa en columnas aquí se los dejo para que lo vean y haber si le es útil a alguien, ya resuelve el problema igual que la solución que me dio ceSharp

Sub desmarcar()

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1)), TrailingMinusNumbers:=True

With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
Columns("A:E").EntireColumn.AutoFit
Range("A1").Select
ActiveWorkbook.Save
End Sub