Macro Help

[jotr]

Well, I posted this question before, but now I can't find it on the website and I never received an answer so I am posting again. I need help with a macro for Microsoft Excel. I am trying to create a data input area on my spreadsheet where once the data is entered a macro will write the data in another designated area so that there is a record of all the data entered. I have several spreadsheets that currently do this, but they all write the data going down rows and I now need one to write going across columns. I am including the macro that I currently have. It will transpose the data into a column form that I want but each time you run the macro it pastes the data further down the same column instead of across to the next column. I desperately need help because this is for my boss. Thanks in advance!

Sub Transferdata()
Sheets("Sheet1").Select
    Range("A20:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=359
    Range("A60").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
 
End Sub