Simply record a macro while you copy the sheet. Or use code similar to
below. This will copy the sheet, i haven't checked about linked data/
formulas but presume your new sheet would be linked to the sheet 2
days ago.

Sub copysheet()
Dim thissht
Dim newshtname
thissht = InputBox("What is the name of the existing sheet you wish to
copy?")
ActiveWorkbook.Sheets(thissht).Copy Befo=Sheets(1)
newshtname = InputBox("What would you like to call the new
sheet?")
ActiveWorkbook.ActiveSheet.Name = newshtname
End Sub