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 Before:=Sheets(1)
   newshtname = InputBox("What would you like to call the new
sheet?")
   ActiveWorkbook.ActiveSheet.Name = newshtname
End Sub