VBA insert a row issue with formula

If you select the last row of the data range, your code will select the next blank row using this:
Selection.Resize(rowsize:=2).Rows(2).EntireRow. _
Resize(rowsize:=vRows)

and then insert a row before, therefore your subtotal formula should not change to reflect the increased rows. There are a few ways you can fix this, maybe just change your subtotal formula to =SUBTOTAL(109,L6:L26) so that if you an insert a row before L26 it will change to =SUBTOTAL(109,L6:L27)?

The issue I have is my formula is at the bottom and just after I have another line were I have to input data.

see screenshot:

row.jpg

You could change the formula in the macro?
something along the lines of:

Please Login or Register  to view this content.

Not sure how I would do that, I've attache my document for example.

Your vba project is password protected so hard for me to do much but I'd guess you could use:
Range("L" & usedrange.rows.count).formula = "=SUBTOTAL(109,L6:L" & Range("L" & usedrange.rows.count).row - 1 & ")"
It needs to be after the code to add the row.

Sorry about that, I forgot to remove it.

password for VBA is: routesheet
password for sheet: pass

Did you try the code in post #6?

Yes I did try and it came back has a error, not sure why...

Try this:

Please Login or Register  to view this content.

It's doing the same thing, when selecting the last row to insert a line the formula doesn't update but any other row is ok.

I forgot to mention that I have more then 1 formula on the line.