Macro to Insert New Row and Update =Row() formula

[hlpsom1]

I have two data tables on a worksheet with Auto Numbering (1,2,3,…) in the first column.
I am using =Row() –<row#> to auto populate these numbers.
When I add a new row to the first table it throws the numbering sequence off in the second.
Is it possible to create a macro that will insert a new row in the first table and update the =Row-<row# +1> formula in the second table so both tables will be correct?

[Kaper]

May be use other function, like:

Please Login or Register  to view this content.

in row 4
and copy down.


Of course in row 18

Please Login or Register  to view this content.

and copy down.

Shall be resistant to rows inserting.

[hlpsom1]

Thanks Kaper

Im not sure what I did wrong but it doesn't seem to be working for me. Is it possible for you to share the excel file with this working.

Thanks in advance.

[Kaper]

See attached.
There new function is only in second table.
If you want it also in first one, then in macro make sure that after inserting a row in first table the new formula is copied down.