Copy range into specific row and shift other rows down

[NIKNIKNIK]

Hard to describe, and I guess that's why it's such a seemingly simple issue that I can't find a solution for, but I'm trying to create a macro to copy data from a range of cells and insert it a few rows down, displacing any data in that cell downward, and adding specific text (year). I've pretty much solved everything of the macro except inserting the data into the right cells; I can only get it to be copied directly below the range I want to copy it from. Enclosed is a sample workbook based on what I'm trying to do, basically I want the "archive" button to move everything in the row for TOTALS down to where it says Last Year, and shifting that data downwards. So if performed correctly with the adding of text as mentioned above, it should add TOTALS where Last Year is (moving Last Year down a row), then the user is prompted to type in the year which overwrites the TOTALS cell. This way the rows will be displayed as previous years going further into the past as the macro is used year to year.
Here's the macro I've put together so far:

Please Login or Register  to view this content.

I'd appreciate any help/advice anyone can provide on this issue
Below is the sample workbook.

[Aaron092]

Hi Nik

Try this one, but I'd replace the rectange with a button

Please Login or Register  to view this content.

[NIKNIKNIK]

Sorry maybe I didn't explain thoroughly enough before, but I want to copy Totals and move it to where Last Year is, displacing Last Year downward and renaming Totals with the year. So the names in column A should go from "Totals, Rank, Margin, Gross Sales, Last Year" to "Totals, Rank, Margin, Gross Sales, 2014 (Totals copied, inserted, renamed with year), Last Year" and subsequently "Totals, Rank, Margin, Gross Sales, 2015 (new Totals copied, inserted, renamed with year) 2014 (original Totals copied, inserted, renamed with year), Last Year"

[Aaron092]

OK, I think I know what you mean.
Would you be able to provide a file of the desired outcome, please? Just to be sure?

[NIKNIKNIK]

Sure, here's essentially what it should look like, albeit with different values each instance.

[Aaron092]

Please Login or Register  to view this content.

Takes A1:N1, puts the copied details into a new row below Gross Sales

That what you're after?

[NIKNIKNIK]

It's very very very close! Everything works, even when adjusting for the actual workbook, however I forgot to mention that it should be pasting the values, not formulas. So currently if I clear the totals section, it will clear the archive as well as it's not the raw numbers. I tried ActiveSheet.xlPasteValues but I get a run time error.

[NIKNIKNIK]

Nevermind! Just solved it with Selection.PasteSpecial Paste:=xlPasteValues. Thanks alot guys!

[Aaron092]

No worries - glad to have helped
If you could mark the thread as solved (click on edit on original post, go advanced) otherwise we'll be in the mods bad books