How to add a column without "=SUM(R10C2:R15C2)"
 

Hi everybody,

I want to add H1:H5, after that H9:H16, etc...

If I use this code it doesn't work for me because my range in H won't be the
same everytime and the total will be always for the same range.
Range("H13").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
Range("H23").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
Range("H26").Select

How to write the right code?

Thanks