Auto push data from one sheet to the next one, and deletes the data after 13 weeks

[Ash2987]

So I'm not sure if this is even possible, but my boss wants this. Essentially I would have an excel workbook that has 14 sheets. 1-13 would represent weeks 1-13 and the 14th sheet would have a grand total based on the date from the 1st 13sheets. I know how to do this part: the issue I'm having is my boss wants sheets 1-13 to represent the current 13 weeks. So how would I write a VBA code that auto pushes the data from one week to the next(e.g. 1 to 2, and then 1 to 2 to 3... etc.) and then after the data reaches 13 weeks it disappears, or transfers to a different sheet/excel workbook.

 

[mrshl9898]

Perhaps

Sub sheetshift()

Sheets("Sheet13").Cells.ClearContents
Sheets("Sheet12").Cells.Copy Sheets("Sheet13").Range("A1")
''etc...
Sheets("Sheet1").Cells.Copy Sheets("Sheet2").Range("A1")

End Sub