Concatenate with style

[DocAElstein]

Hello Abdul

...if any cell contain a number (value) it shows run time error 1004

This change seems to overcome that problem:
Change

.Characters(Position, Len(Cell.Value)).Text = Cell.Characters(1, Len(Cell.Value)).Text

to

.Characters(Position, Len(Cell.Value)).Text = Cell.Value

---

... if given range contains more than 230 characters VBA not works the destination cell (A3) will become blank

I do not understand this problem.

Can you provide a sample to demonstrate the problem?
I will then investigate further

Alan