Insert Row, copy formula from above

aisietie · Apr 2nd 2012

Hello,

I need to insert a row every time at row 98
But when I do this the formule from above is not copied.

I try it with this code:

Code

Sheets(strSheetName).Rows("98:98").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

But a row is inserted, without the formule from row 97

Can somebody help?

aisietie

**PCI** · Apr 2nd 2012

Re: Insert Row, copy formula from above

Perhaps

Code

Option Explicit


Sub InsertRow()
Dim strSheetName As String
    strSheetName = "strSheetName"
    With Sheets(strSheetName)
        .Rows("9:9").Insert Shift:=xlDown
        .Rows("8:8").Copy Destination:=.Range("A9")
    End With
End Sub

Display More

aisietie · Apr 2nd 2012

Re: Insert Row, copy formula from above

PCI,

OK, this works, and solves my problem.

Thanks, I just wonder if this can be done with a 1-liner

aisietie

Insert Row, copy formula from above

Participate now!

Share