ActiveCell.Offset(0, 1).Formula = _
"=Sum($G$4:" & ActiveCell.Offset(-2, 1).Address & ")"

--
HTH,
Dianne

In ,
Stuart typed:
Some help, please:

ActiveCell.Offset(0, 1).Formula = _
"=Sum(G4: ...........G.?....)"

where G? can be defined as the cell:
ActiveCell.Offset(-2, 1)

As I get older, I forget even the simplest of things!

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.545 / Virus Database: 339 - Release Date: 27/11/2003