If you really want a macro though, you can also just record yourself doing what I just said, and it will give you something like this:-
Sub Macro1()
Columns("D

").select
selectionTextToColumns Destination:=Range("D1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), Array(2, 1)), TrailingMinusNumbers:=True
End Sub
A little bit of editing tidies it up somewhat and gives you this
Sub Strip2fromColD()
Columns("D

").TextToColumns Destination:=Range("D1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), Array(2, 1)), TrailingMinusNumbers:=True
End Sub
----------------------------------------------------------------------------
![[peace] [peace] [peace]](/data/assets/smilies/peace.gif)
It's easier to beg forgiveness than ask permission
----------------------------------------------------------------------------