inserting rows with formulas

  • Thread starter Thread starter ~Ken~
  • Start date Start date
K

~Ken~

Hi

Does anyone know how to code a button on the worksheet to
insert 2 rows above the active cell and then copy the
formulas down (or up) from the rows that are adjacent?

Many thanks
Ken
 
This should work, adjust ColumnToFill as needed.

Dim R As Integer, ColumnToFill As Integer
R = ActiveCell.Row
ColumnToFill = 1
ActiveCell.EntireRow.Insert
Range(Cells(R - 1, ColumnToFill), Cells(R, ColumnToFill)).FillDown
 
Back
Top