Keeping Data

[icmanager35]

I collect data from my company's system by importing data from Microsoft query. Some data only last for 8 days and erases from my formula if I do not copy and paste it to another tab. Is there something I can do for I can keep the data in case I miss a day or on vacation?

 

[ranman256]

Sub CopyMySheet()
    Cells.Select
    Selection.copy
    Sheets.Add
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("A1").Select
    ActiveSheet.Name = Format(Date, "yymmdd")
End Sub