Loop

Hi, I need a code that can pick up a date from one cell
(B1)and drop it into the first empty cell under a list of
dates in Column H
Many thanks in advance

iFreeRow = Cells(Rows.Count,"H").End(xlUp).Row + 1
Cells(iFreeRow,"H").Value = Range("B1").Text

--

HTH

RP
(remove nothere from the email address if mailing direct)


"JohnUK" <[email protected]> wrote in message
news:[email protected]...
> Hi, I need a code that can pick up a date from one cell
> (B1)and drop it into the first empty cell under a list of
> dates in Column H
> Many thanks in advance