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:

  1. autofill D2 to D6 numbers 1-5 then
  2. Copy cells D2-D6 and copy down to last row
  3. 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