So this is my VBA that is currently working for coping a formula and pasting it into a set of cells that moves down each day. I am missing the part at the end where it then copies the same set of cells and paste back into the same cells as values so that the values stay for the next day. Thanks in advance for the help. :)
Sub Cash()
Dim rng_Copy As Range
Dim rng_Paste As Range
Set rng_Copy = Sheet1.Range("$M$1")
Set rng_Paste = Range("G" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0)
rng_Copy.Copy
rng_Paste.Resize(18, 1).PasteSpecial xlPasteFormulas
End Sub