Support Request: Traspose Cells Macro - Lose format when use it

Hello everyone, it's me again with another support request.

This time with a Transpose Cells Macro. . It Works fine, but it eliminates cell format/styles when I actívate it. Do you have any suggestion to avoid format lost?

Here is the code:

Please Login or Register  to view this content.

Thanks!

Slightly different implementation:

Please Login or Register  to view this content.

WBD