Chamberlain
Board Regular
- Joined
- Jan 6, 2006
- Messages
- 149
This code is used to insert a row above the active cell, and copy the formula's from an identical row into the new row.'
What I want to be able to do is almost exactly the same thing except, insert the selected number of rows; just like when you insert rows the normal way. So that I could select 1, 5, 25.... or however many rows and have it insert that # of rows, and copy the formulas into each of those new rows.
Dim AR As Long 'Active Row
AR = ActiveCell.Row
Rows(AR).Insert Shift:=xlDown
Range("A8:fq8").Copy Range("A" & AR)
Range("Er8:ft8").Copy Range("ER" & AR + 1)
Thanks,
Dave
What I want to be able to do is almost exactly the same thing except, insert the selected number of rows; just like when you insert rows the normal way. So that I could select 1, 5, 25.... or however many rows and have it insert that # of rows, and copy the formulas into each of those new rows.
Dim AR As Long 'Active Row
AR = ActiveCell.Row
Rows(AR).Insert Shift:=xlDown
Range("A8:fq8").Copy Range("A" & AR)
Range("Er8:ft8").Copy Range("ER" & AR + 1)
Thanks,
Dave