Hi

I have a rolling data sheet which I need to update with the previous day's
data each morning. eg if today is the 03/05 then I add a new row today for
the 02/05. I would like to create a macro to copy the last row of data and
copy it down which should update the date. can anyone help me with how to do
this?

Greatly appreciated
Soph

Dim LastRow As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

Rows(LastRow).Copy Cells(LastRow + 1, "A")
Cells(LastRow + 1, "A").Value = Cells(LastRow, "A") - 1


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"soph" <(E-Mail Removed)> wrote in message
news:802677A1-1DEE-4F9F-B035-(E-Mail Removed)...
> Hi
>
> I have a rolling data sheet which I need to update with the previous day's
> data each morning. eg if today is the 03/05 then I add a new row today
> for
> the 02/05. I would like to create a macro to copy the last row of data
> and
> copy it down which should update the date. can anyone help me with how to
> do
> this?
>
> Greatly appreciated
> Soph