Macro to paste data into next blank row
 

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

Macro to paste data into next blank row
 

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