VBA Script Group transpose - Error 13

Hi all,

i need your help - I have following code:

Please Login or Register  to view this content.

Sometime i receive the message : ERROR 13 type mismatch .

How can i solve it ?

Thanks
Marcus