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:

[TABLE="width: 150"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]Column R[/TD]
[TD]Column T[/TD]
[/TR]
[TR]
[TD]258.05[/TD]
[TD]567.42[/TD]
[/TR]
[TR]
[TD]309.37[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]426.19[/TD]
[TD]930.44[/TD]
[/TR]
[TR]
[TD]504.25[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]608.14[/TD]
[TD]608.29[/TD]
[/TR]
[TR]
[TD]0.15[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

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.