Summing data in a column

[abberyfarm]

Hi there,

I need to sum data in a column A below so that it is totaled at each row in Column B.

A macro would be great as I need to call it in another macro.

Thank you

Excel Workbook
	A	B
1	1	1
2	1	2
3
4
5	1	3
6	1	4
7
8	1	4
9
10
11	1	6
Sheet1

 

[AlphaFrog]

Sub Running_Total()
    
    Dim a, i&, tot!
    
    With ActiveSheet
        a = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
        For i = LBound(a, 1) To UBound(a, 1)
            tot = tot + a(i, 1)
            If a(i, 1) <> "" Then a(i, 1) = tot
        Next i
        .Range("A1", .Range("A" & Rows.Count).End(xlUp)).Offset(, 1) = a
    End With
End Sub

 

[Jonmo1]

Why is B8 = 4 ?
Is that supposed to be 5 ?


Try this in B1 and filled down

=IF(A1="","",SUM(A$1:A1))

Excel Workbook
	A	B
1	1	1
2	1	2
3
4
5	1	3
6	1	4
7
8	1	5
9
10
11	1	6
Sheet1

 

[abberyfarm]

sorry, it was supposed to be 5. I'll try your code now.

Thank you.