Inserting rows and saving formulas

S

Shawna

Hi,

I am using the code below to INSERT rows in an invoice sheet, but it doesn't copy the formulas. Is
there a way to do insert a row and copy the formulas, too? Not the values, just the formulas.

In the code snippet "intRowCount" is the current row number - a count of the line items.

Range("A" & intRowCount).EntireRow.Select
Selection.EntireRow.Insert shift:=xlShiftDown
Range("A" & intRowCount).Select

Thank you,

Shawna Brooks
 
Top