Hi. I have a worksheet with around 25 rows that will already have a formula in them that adds today's increase or decrease to the previous day's balance.

**Column A **is for daily entries (values)

**Column B** is the running total(formulas)

For example,

**B1 would be the beginning balance for the month** (**500**, a value).

A2 would be the first day's amount: 250.

**B2** would be **=B1+A2 (500+250=750)**

A3 would be following day's amount: -100

B3 would be** =B2+A3 (750-100=650)**

**A4** would be the following day's amount: 50

B4 would be **=B3+A4 (650+50=700)**

When a cell is double-clicked, the code below inserts a new row and copies the formula down to the new row. If I insert a row at Row 2, the inserted row becomes row 3 and the formula is fine. BUT the formula in row 4 (which was row 3 before the insert) does not adjust the first cell reference in the formula the way it is supposed to. Example:

**Row 2 ** **=B1+A2**

Inserted row, Row 3 **=B2+A3**

But the row that moved down(formerly row 3)** Row 4, =B2+A4 **instead of**B3+A4**

Is there any way to make this work properly? Thanks! [Blocked Image: http://www.mrexcel.com/forum/images/smilies/icon_smile.gif]

```
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'David McRitchie, 2007-09-07 insrtrow.htm on double-click
'-- will copy more often than Extend Formulas and Format (tools option)
Cancel = True
Target.EntireRow.Copy
Cells(Target.Row + 1, 1).EntireRow.Insert
Cells(Target.Row + 1, 1).EntireRow.Select
ActiveSheet.Paste
Application.CutCopyMode = False
On Error Resume Next
'-- customize range for what cells constants can be removed --
Intersect(Selection, Range("b:IV")).SpecialCells(xlConstants).ClearContents
On Error GoTo 0
End Sub
```

Display More