with sheets("Sheet2")
LastRow = .Range("A" & rows.count).end(xlup).Row
NewRow = LastRow + 1
Sheets("Sheet1").Range("A1:G1").copy destination:=.Range("A" & NewRow)
end with

"Big Simon" wrote:

Hi,
I want to run a macro which will take data from cells A1~G1 on sheet 1 and
paste them onto the bottom of a list on sheet 2.
Sheet 1 will be like a input page and sheet 2 will be a log of all data
entered.
I hope someone can help.
Thanks,