Pasting to last row

[WxShady13]

I am working on a spreadsheet that after the user inputs data they run a macro that writes to a table so we can pull historical data into a chart. What I cannot get is the pasted data to begin at the first blank row of the historical table. I cannot figure what I am doing wrong, thank you for the help.

Sub ArchiveProjects_Chart()
Application.ScreenUpdating = False
Worksheets("Pivot Data").Range("P2:R7").Copy
Worksheets("Chart Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.ScreenUpdating = True

End Sub

 

[Kamolga]

I tested and it worked perfectly. If I put data in A14, it pastes in A15 (of course if you habe something in B19, it does not consider it, it checks column A) the Range P2:R7 of the other sheet. It works whatever the ative sheet is, no problem with your code!

It also work if P2:R7 is pivottable

 

[WxShady13]

Thank you for testing, I will see why it isn't working on my sheets.

 

[WxShady13]

Well to update you on what I have discovered....For some reason it would not write to the Chart Data worksheet at all, however when I created a new worksheet and changed the code to point there it works flawlessly. Thank you for your help