Good morning,

I wish to seek advice on this procedure as in
http://www.mvps.org/dmcritchie/excel/insrtrow.htm

I made two alterations to facilitate testing:

Delete Optional vRows As Long = 0 to
Sub InsertRowsAndFillFormulas()

Set vRows = 1 in place of the If...End If msgbox

Results:
insert row, OK
autofill row, OK
clear constants, OK
BUT
the formulae in the original rows (now pushed down) remain as they were.

I also cannot understand why we have:
x = Sheets(sht.Name).UsedRange.Rows.Count
unless there is a missing procedure to replace formulae from relevant cells
down to row(x)

This procedure has been looked at so many times since 1987 and am sure it is
working.
What have I missed please?

Regards
KC