Hi,
I have a spreadsheet that summaries back-end data from my website. Each time I refresh it updates the spreadsheet.
I am wanting to create a new sheet that records & reflects the data over a period of time, so that we can start analysis trends.
I have written the following macro that should, each time I run it, copy the data and paste it into the next free row in the new spreadsheet. However, it keeps pasting the data in the same row and overwriting previous data.
Please let me know if you can figure out what I am doing wrong.
Sub recorder()
Application.ScreenUpdating = False
Dim lastRow As Integer
lastRow = Sheets("historical").Range("p65536").End(xlUp).Row + 1
Range("C2").Copy
Sheets("historical").Range("A" & lastRow).PasteSpecial xlPasteValues
Range("C3").Copy
Sheets("historical").Range("B" & lastRow).PasteSpecial xlPasteValues
Application.ScreenUpdating = True
End Sub
Thanks
Jud
Bookmarks