Tak je tam ještě jeden problém.

Některé řádky mají i více jak 300 znaků a při spuštění makra vyskočí okno MS Visual Basic:

Run-time error '13':
Type mismatch.

Tlačítko Debug ukazuje na

Data = Application.Transpose(Data)

"Kazí" se to někde u 255 znaků v buňce..

Cosi jsem našel, ale je to pro mě španělská vesnice:
http://www.vbaexpress.com/forum/showthread.php?63192-Transpose-an-array-type-mismatch-error
(omezení 255 znaků na buňku)

A ještě dále:https://stackoverflow.com/questions/35395789/excel-vba-need-workaround-for-255-transpose-character-limit-when-returning-vari