Loop

J

JohnUK

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
 
B

Bob Phillips

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)
 
Top