My formulas won't update when I insert a row - Help!

[Bakerson]

I have a spreadsheet for recording various financial data, at the bottom of which are subtotals [subtotal(9,range)] of some but not all columns.
I've got the following Code to insert new rows, copying formulas from a hidden row at the top of the spreadsheet.

A = Int(InputBox("No of New rows?", "DATA ENTRY"))
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Rows(LastRow).Resize(A).Insert Shift:=xlDown
Rows(1).Copy Range("A" & LastRow).Resize(A)
Rows(LastRow).Resize(A).Hidden = False

This successfully inserts new rows with formulas.
The problem I have is that my subtotals don't update to include my newly inserted row(s)

Does anyone have any ideas how to overcome this?
Help gratefully received.

 

[Peter_SSs]

Here's one suggestion:

1. Add a blank row immediately above your subtotal row.

2. Alter your Subtotal formula to include that new blank row in its 'range'.

3. Hide the blank row

4. Alter this line in your code

LastRow = Range("A" & Rows.Count).End(xlUp).Row - 1

 

[Bakerson]

Lovely jubbly - that works a treat!
I had tried offset(-1), but it really didn't like that!