Inserting Rows into a worksheet

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