Sum cell values in a column

[Gonzalo De La Torre]

The idea is the following:

Dim VariableRow As String

ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:R[VariableRow]C[-2])"

I have values in column A but in column B i have nother value that it is going to tell the number of rows the sum is going to cover in column A Can this be done in VBA or just by using a simple formula Example:

--------------------------------Column C
Row Number|Column A|Column B|Sum Result
----1------|----1----|---3----|----8-----------Sum = Range(A1:A3)
----2------|----2----|---0----|
----3------|----5----|---0
----4------|----2----|---4----|----9-----------Sum = Range(A4:A7)
----5------|----2----|---0----|
----6------|----2----|---0----|
----7------|----3----|---0----|

Can anyone help me out with this issue?

 

[wigi]

In C1 and below:

=IF(B1,SUM(OFFSET(A1,,,B1,)),"")

 

[AlphaFrog]

Excel Workbook
	A	B	C
1	1	3	8
2	2	0
3	5	0
4	2	4	9
5	2	0
6	2	0
7	3	0
Sheet

 

[Gonzalo De La Torre]

Thank you very much to both of you.

Both formulas work great.