try this in the sheet module desired. Modify to suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 Or Target.Row < 8 Then Exit Sub
'one line below
Range("a6") = Application.Sum(Range("a8:a" & Cells(Rows.Count,
"a").End(xlUp).Row))
End Sub

--
Don Guillett
SalesAid Software

"kizzie" wrote in
message ...

Hello,

I need a macro that does the following:

If a value entered in the range below row 19, the sum of the values in
that column (from 19 to the last filled cell -there are also empty
cells) must be added to the cell on row 14 of that column

If a value is entered above row 19, nothing has to happen (exept
filling the active cell)

I can't use any formulas, because the cells that keep the sums, are
also manipulated by other scripts.

can anyone help me please

Thanks in advance


--
kizzie
------------------------------------------------------------------------
kizzie's Profile:
http://www.excelforum.com/member.php...o&userid=26092
View this thread: http://www.excelforum.com/showthread...hreadid=394919