To preserve the multiple text formatting in the cell, you need to use the
PasteSpecial method of the destination Range object, and you need to use the
xlPasteAllUsingSourceTheme XLPasteType.
Code:
mySourceRange.Copy
myDestinationRange.PasteSpecial Paste:=xlPasteAllUsingSourceTheme
I hope that helps,
~ Ash