Hi dusit, welcome to the forum.
First, you'll need to go back to that first post, EDIT, GO ADVANCED (if necessary), highlight all the macro code and click on the # icon to wrap the code in [ code ] tags. It's highly valued forum rule / requirement.
Then, your post will be simple to read like this corrected macro code I offer here to resolve your issue:
Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 2), Array(4, 2), Array(12, 2), Array(19, 2)), _
TrailingMinusNumbers:=True
Bookmarks