
Sub Macro1()
'
' Macro1 Macro
'
'
Range("B3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("C3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-R1C4"
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A3").Select
Application.OnKey "{ENTER}", "Macro1"
End Sub |
