Assume your entries are in A1:A10 of sheet1 and the copy is made to sheet2,
next available row (and transposed)

Private Sub Commandbutton1_Click()
With worksheets("Sheet1")
set rng= .Range("A1:A10")
rng.copy
End With
With worksheets("Sheet2")
.cells(rows.count,1).End(xlup)(2).Pastespecial _
Transpose:=True
End with
rng.ClearContents
End Sub

--
Regards,
Tom Ogilvy



"Mallers" wrote:

I have 2 sheets in an Excel file. One is simply a data sheet that will be
used again and again. The second sheet is where I want to store the
information that is entered. The info on sheet one is vertical. I need to
copy the info to sheet 2 horizontally AND then move down one row for the next
time data is entered into sheet 1.

I would also like to put one of those of buttons on the page as this file
will be passed back and forth.