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!
Code:
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