Inserting Rows into a worksheet

I need to be able to enter a given number into a column in Excel and have
that number of rows added in the next row (copied from another row).

Does this do what you are after?

Sub insertrows()
    Dim CurrRow As Integer
CurrRow = ActiveCell.Row
Rows(CurrRow + 1 & ":" & CurrRow + ActiveCell.Value).Insert
End Sub

I'm not sure what you mean by "copied from another row". Perhaps further explination will clarify exactly what you are after.

HTH

David McRitchie has a nice macro that asks how many rows should be inserted and
even copies the formulas down to those new rows.

http://www.mvps.org/dmcritchie/excel/insrtrow.htm
look for: InsertRowsAndFillFormulas

Floyd Elkins wrote:
>
> I need to be able to enter a given number into a column in Excel and have
> that number of rows added in the next row (copied from another row).

--

Dave Peterson