Copy limitation to 255 characters - problem

This is my first post, so I would like to welcome everyone .
I have a problem with VBA code copying text to the selected cell on another sheet.
If the selected text contains 255 characters or less, everything is fine, but if the text contains more than 255 characters, the application displays a prompt containing the error text: Runtime Error 13; type mismatch.
Unfortunately I don't know why . I am asking for help in clarifying this problem and finding the right solution.
I add a file called example.xlsm presents this problem.

Thank you for your interest but I’m not enough good in VBA so I'm afraid I can't do it myself: (.
Could you help me to change VBA code in a correct way so that mor than 255 characters be acceptable ?
This is a VBA code from my example:

Please Login or Register  to view this content.

It isn't clear to me what you're trying to do, but maybe this:

Please Login or Register  to view this content.

Hi,
Thank you for interest in my problem. Your solution is exactly what I mean . I’d like to explain, that this is only small part of bigger project used in my work. Once again thanks , good job !

You're welcome, glad to help, & thanks for the feedback.