Neviem, či chápem dobre Tvoju potrebu, pretože každým spustením makra sa pôvodný riadok prepisuje (myslel som že budeš potrebovať pridávať dáta)...
Pokiaľ to tak má byť, stačí skopírovať oblasť Range("A1:A" & Range("A1").End(xlDown).Row)(za predpokladu, že medzi A1 až najnižšie vyplnené A nie je prázdna bunka, inak sa na to ide odspodu) a do cieľa prilepiť špeciálne: hodnoty + transponovať (Teraz sa tomu nestíham viac venovať)