If I understood your question correctly, you don't need a macro at all to do this.
Here's how you do it.
1. Select all the columns (A1:AN1). Right click and select copy.
2. open a new sheet. Right click on cell A1
3. select Paste Special.
4. Check the box Transpose and press OK.
Thats it. You got the rows and columns transposed.
Hope this helps