Macro needs to move with date down a row each day including other cell
referances when I run the macro.
--
paintbrush
Here is day 3 macro below, or do I need to make 31
Macros?
Range("G3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("J3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*7"
Range("K3").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-5]"
Range("K3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E2:E9").Select
Selection.ClearContents