PDA

View Full Version : filling date



asdzxc
04-22-2012, 03:53 AM
colume A is filling with dates from A2. Last date is at A10=10 Apr. Plse write a macro to fill the next 2 blank cells A11=11 Apr and
A12=12 Apr.
Thank you

Bob Phillips
04-23-2012, 12:15 AM
With Activesheet

lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Cells(lastrow, "A").Autofill .Cells(lastrow, "A").Resize(3)
End With