Sub Macro1_rewritten_MACRO_EXAMPLE()
Application.Goto Reference:="R1C5"
Selection.FormulaR1C1 = "=TEXT(NOW(),""yyyymmdd"")"
Selection.Copy
ActiveSheet.Select
ActiveSheet.Name = "old"
Sheets("old").Select
Application.CutCopyMode = False
Sheets("old").Copy Before:=Sheets(1)
ActiveSheet.Select
ActiveSheet.Name = "new"
Sheets("old").Select
Application.Goto Reference:="R1C1"
ActiveCell.Columns("A:BZ").EntireColumn.Select
Selection.Copy
Application.CutCopyMode = False
Calculate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.Goto Reference:="R1C1"
Application.CutCopyMode = False
Calculate
Sheets("old").Select
Sheets("old").Name = Range("e1")
Sheets("new").Select
Application.Goto Reference:="R1C1"
End Sub
Sub Macro2_RECORD_MACRO_EXAMPLE()
Application.Goto Reference:="R1C5"
Selection.FormulaR1C1 = "=TEXT(NOW(),""yyyymmdd"")"
Selection.Copy
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "old"
Sheets("old").Select
Application.CutCopyMode = False
Sheets("old").Copy Before:=Sheets(1)
Sheets("old (2)").Select
Sheets("old (2)").Name = "new"
Sheets("old").Select
Application.Goto Reference:="R1C1"
ActiveCell.Columns("A:BZ").EntireColumn.Select
Selection.Copy
Application.CutCopyMode = False
Calculate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.Goto Reference:="R1C1"
Application.CutCopyMode = False
Calculate
Sheets("old").Select
Sheets("old").Name = "cellE1"
Sheets("new").Select
Application.Goto Reference:="R1C1"
End Sub