Range("D2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("D26"), Type:=xlFillSeries
Range("D26").Select
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Selection.Copy Destination:=Range("D7" & lastrow)
I'm want to:
- autofill D2 to D6 numbers 1-5 then
- Copy cells D2-D6 and copy down to last row
- Using Col B to find the last row
From above code it copies D2-D6 (#1-5) to next 5 cells, D7-D11 only.
How do I copy to last row?
Thanks,
weenie