Thank you very much.

It works very well.

I did have to make one minor change.

It was to the line that reads

strBase = VBA.Left$(rngCell.Value, lngLast) & " "

I changed it by adding a coma inside the quotes.

Now it reads
strBase = VBA.Left$(rngCell.Value, lngLast) & ","

The reason was that the output no longer had a comma between the
company code and the previous field. And I needed this comma to
separate the field values.

Again it works great. Thnaks fo your help on this.