Thanks for the code, but it wont compile. I dont know enough about VB to
figure out what the errors are, but i think it is a combination of the IF
Then Structures and missing parenthesis.

"Die_Another_Day" wrote:

> Why not put your total in the next column and use sum(A:A)? otherwise:
> insert this into the worksheet code for which you "Total" calculation
> is in. Also you must name the cell containing the "Total" Calculation
> to "Total"
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = Cells(Range("Total").Row - 1,
> Range("Total").Column).Address Then
> If Target.Value <> "" Then
> Rows(Target.Row + 1).EntireRow.Insert shift:=xlDown
> End If
> End If
> End Sub
>
> HTH
>
> Die_Another_Day
>
>