> Sub MyMacro()
> Dim x As Integer

> 'Determine what day it is
>  x = Format(Date, "d")

>  Cells(x, "G").Formula = "=TODAY()"
>  Cells(x, "J").FormulaR1C1 = "=RC[-1]*7"
>  Cells(x, "K").FormulaR1C1 = "=R[7]C[-5]"
>  Cells(x, "K") = Cells(x, "K").Value
>  Range("E2:E9").ClearContents

> End Sub
> --
> Best Regards,

> Luke M
> *Remember to click "yes" if this post helped you!*

> "paintbrush" wrote:

> > 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