Sub Tester6()
Selection.Copy
Worksheets("Confirmation").Cells(Rows.Count, 1). _
End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, _
Transpose:=True

End Sub

--
Regards,
Tom Ogilvy


Cynthia wrote in message
...
I have one more question for today. I have a spreadsheet that I'm using
as a reservation confirmation letter. It includes one short column with
name, address, etc. that I have a macro paste as a row into a second
spreadsheet. What I want to be able to do is that each time I fill out a
new confirmation letter, the macro will paste it as a new row into the
second spreadsheet, thus giving me a consolidated list of all reservations.
For example, 30 confirmation spreadsheets=30 rows in the one spreadsheet.
In other words, every time I change the info on the confirmation spreadsheet
and run the macro, how do I tell the macro to paste into the next empty row,
without overwriting my first row?

Hope you can understand the problem.
Cynthia