inserting rows with formulas

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
 
R

Rocky McKinley

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
 
Top