Hi Frank

Thanks for the suggestion but I realy need to put the
total at the bottom so if you could help I would be
grateful.

Regards

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
Cells(iLastRow+2,"A").FormulaR1C1= "=SUM(R1C:R[-2]C)"

change the column "A" to suit.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"benosc" wrote in message
...
Hi Frank

Thanks for the suggestion but I realy need to put the
total at the bottom so if you could help I would be
grateful.

Regards