Could someone please help me with the code to insert a row below the current
row and copy the formula in named range ("Telephone") into the new row

Sub insertrow()

Set telephone = Range("I114")

Range(Cells(ActiveCell.Row + 1, ActiveCell.Column), _
Cells(ActiveCell.Row + 1, ActiveCell.Column + 1)). _
EntireRow.Insert Shift:=xlDown

Cells(ActiveCell.Row + 1#, ActiveCell.Column).Formula = telephone.Formula

End Sub
"Karen McKenzie" wrote:

Could someone please help me with the code to insert a row below the current
row and copy the formula in named range ("Telephone") into the new row

Based on the brevity and lack of specificity in your post, many assumptions
are made:

Is telephone a single cell?

Activecell.offset(1,0).EntireRow.Insert
Activecell.offset(1,0).Formula = Range("Telephone").formula

if Telephone contains a formula that should be copied to allow relative
references to adjust:

Activecell.offset(1,0).EntireRow.Insert
Range("Telephone").copy ActiveCell.offset(1,0)

--
Regards,
Tom Ogilvy


"Karen McKenzie" wrote:

Could someone please help me with the code to insert a row below the current
row and copy the formula in named range ("Telephone") into the new row