add formula next to corresponding cells

[transferxxx]

I would like to add the following formula "=SUM(RC[1]:RC[2])" in cells
starting H2 to H10 next to cell G2:G10

row 10 can vary - i,e adding the following formula "=SUM(RC[1]:RC[2])"
in cells starting H2 to H100 next to cell G2:G100

Can any bod help

(i,e i would like to offset 1 column & add formula next to
corresponding cells.

Thxs

 

[Bob Phillips]

Dim nRow As Long
nRow = 10
Range("H2:H" & nRow).FormulaR1C1 = "=SUM(RC[1]:RC[2])"


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)