asdzxc
04-22-2012, 06:41 PM
Last date is at A17=1/18 (file attached). The following macro is to fill the next 3 blank cells but not working.
Plse check.
Dim LastRow As Long
Dim LastDate As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
LastDate = Range("A2").End(xlDown).Offset(3, 0).Row
Selection.AutoFill Destination:=Range("A" & LastRow ,"A" & LastDate), Type:=xlFillDefault
Plse check.
Dim LastRow As Long
Dim LastDate As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
LastDate = Range("A2").End(xlDown).Offset(3, 0).Row
Selection.AutoFill Destination:=Range("A" & LastRow ,"A" & LastDate), Type:=xlFillDefault