Macro to paste data into next blank row

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Sub Tester6()
Selection.Copy
Worksheets("Confirmation").Cells(Rows.Count, 1). _
End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, _
Transpose:=True

End Sub

--
Regards,
Tom Ogilvy


Cynthia said:
I have one more question for today. I have a spreadsheet that I'm using
Click to expand...
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?
 
Back
Top