Add cell in one column result in different column

[sarah1024]

Hello,
I need help with VBA code inserting sum of cells in column R in to column T which are separated by two empty rows.
values in column R starts at row 2.

Here is an example:

Column R	Column T
258.05	567.42
309.37
426.19	930.44
504.25
608.14	608.29
0.15

<colgroup><col><col></colgroup><tbody>
</tbody>

I greatly appreciate the help!

Thank you!

 

[James006]

Hello,

Is there a real necessity to have VBA ... when a formula can perform the calculation ...? :wink:

 

[Peter_SSs]

Welcome to the MrExcel board!

Assuming column R numbers are not the result of formulas, try this in a copy of your workbook.

Sub Insert_Sum()
  Dim rA As Range
  
  For Each rA In Columns("R").SpecialCells(xlConstants, xlNumbers).Areas
    rA.Cells(1, 3).Value = Application.Sum(rA)
  Next rA
End Sub

 

[James006]

Hello,

In cell T2, you can test the Array formula :

=SUM(OFFSET(R2,0,0,MATCH(TRUE,ISBLANK(R3:$R$100),0),1))

Hope this will help

 

[sarah1024]

Thank you Peter! it worked like a charm!

 

[Peter_SSs]

Thank you Peter! it worked like a charm!

You're welcome.