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" wrote in message
...
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