Macro to add worksheet - worksheet names change

I have searched extensively on this forum and Google for a few days and cannot find anything that will work. I am trying to create a macro that will add a worksheet into a workbook and copy the data from an existing worksheet onto the new worksheet. The problem I'm having is that the worksheet names change over time. The workbook is used to track certain products, with one workbook for each product. Here is a visual of what I am trying to do:

Starting worksheet tabs:
|Summary| |2012| |2011| |2010|

I want to add a new tab for 2013 that has the same data as the 2012 tab:
|Summary| |2013| |2012| |2011| |2010|

For next year, I will want to add a 2014 tab without having to rewrite the macro for each product's workbook.

Any help would be greatly appreciated. I sincerely apologize if this information is readily available and I just missed it.

Originally Posted by GC Excel

Hi and welcompe to the forum....

Something like this ?

Please Login or Register  to view this content.

Thanks for the suggestion, but it does not work. It gets stuck at Set ws = Sheets.Add(before:=Sheets(CStr(Year(Date)))).

I see, I can work with that. Thanks for your help!