Tim,

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

gets the last cell in column A. By update next, do you mean add 1 day to the
date? If so, then

Cells(cLastRow+1,"A").Value = Cells(cLastRow,"A").Value + 1

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Tim" wrote in message
...
How can i have a macro find a date at the end of a column and then update
it to the next cell, in visual basic code