inserting rows with formulas
 

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

inserting rows with formulas
 

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

--
Regards,
Rocky McKinley


"~Ken~" wrote in message
...
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