Summing two columns

[Hru48]

Hey all,

I have a worksheet which has two columns to it and I need a third t
act as a totals column for all the values in columns a and b.

I'm doing it as part of a sub in vba and I need to know if there is
short way of reffering to column as I keep ending up with pages of:

Range("G3").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Columns("E:G").Select
Range("G4").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Columns("E:G").Select
Range("G5").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"

Many thanks

 

[Yngve]

hi hru48

try this.

Sub CountSum()
Dim colE As Double
colE = Cells(Rows.Count, "E").End(xlUp).Row
Range("G3:g" & colE).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
End Sub
regards yngve

 

[Bob Phillips]

iLastrow = Cells(Rows.Count,"E").End(xlUp).Row
Range("G3").FormulaR1C1 = "=RC[-2]+RC[-1]"
Range("G3").Autofill Range("G3").Resize(iLastrow)


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

 

[Hru48]

Thanks alot for your help this is gran