weenie
07-09-2017, 02:28 PM
Range("D2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("D2:D6"), Type:=xlFillSeries
Range("D2:D6").Select
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Selection.Copy Destination:=Range("D7:D" & 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
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("D2:D6"), Type:=xlFillSeries
Range("D2:D6").Select
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Selection.Copy Destination:=Range("D7:D" & 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