Sub es()
Application.DisplayAlerts = 0: Application.ScreenUpdating = 0
Range("a10" & ":a" & Cells(Rows.Count, 1).End(3).Row).Select
Selection.TextToColumns Destination:=Range("b10"), DataType:=xlDelimited, _
Other:=True, OtherChar:="-", FieldInfo:=Array(Array(1, 1)), TrailingMinusNumbers:=True
End Sub