try this idea to check the date in a1 and insert days required to bring up
to date & change date stored in a1

Sub insert30rows()
If Date < Range("a1") Then
x = (Date - Range("a1")) * 30
Rows("9:" & 8 + x).Insert
Range("a1") = Date
End If
End Sub

--
Don Guillett
SalesAid Software

"David P." wrote in message
...
I need for a range to move down the column 30 cells automatically at the
beginning of every day. Is that possible?
--
David P.