Aby Jsi dosáhl kýženého výsledku je potřeba pole při vložení zpět do listu transponovat.
Takže Selection = x nahradit za Selection = Application.Transpose(x)
Ale celkově to makro je takové .....
Když by jsi pořádně popsal funkčnost jistě by se dalo napsat lépe! Pokud se jedná o souvislou oblast buněk není potřeba k naplnění pole cyklus ....