Summing the bottoms of two columns

[cguy3000]

Hey guys!!

Alright so I have a rather simple problem that I just cant seem to figure out for the life of me. Its fairly straightforward.

So I have a data table,

[TABLE="width: 174"]
<tbody>[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]241[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]244[/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]248[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]251[/TD]
[/TR]
[TR]
[TD="align: right"]225[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
I want to take the 251 in its cell, add it to the 225s cell, and then put the new sum total value directly under the 251. And simply repeate that pattern of cell summing every time I hit the macro button. I assume you use some sort of Range("A5").End(xlDown) formula to select the bottoms of these columns but I cant figure out how to write it to do what I want.

Thanks guys!

 

[Trebor76]

Hi cguy3000,

Try this:

Option Explicit
Sub Macro1()
    
    Dim lngLastRow As Long
    
    lngLastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
    Range("B" & lngLastRow + 1).Formula = "=B" & lngLastRow & "+A" & lngLastRow + 1

End Sub

HTH

Robert

 

[DanteAmor]

How about

Sub macro2()
  Range("B" & Rows.Count).End(xlUp)(2) = Range("B" & Rows.Count).End(xlUp) + Range("A" & Rows.Count).End(xlUp)
End Sub