Sum Cell Values Until Blank Cells With VBA

[xpost][/xpost]

Hello,

I found this code on the internet. How do I get the sum value to appear in the empty cell above the cells containing consecutive values. I'm thinking of running the code from the last row. Thank for your help

How to sum cell values in a column until blank cell reached?

Sub InsertTotals()

'Updateby Extendoffice

Dim xRg As Range

Dim i, j, StartRow, StartCol As Integer

Dim xTxt As String

On Error Resume Next

xTxt = ActiveWindow.RangeSelection.AddressLocal

Set xRg = Application.InputBox("please select the cells:", "Kutools for Excel", xTxt, , , , , 

If xRg Is Nothing Then Exit Sub

StartRow = xRg.Row

StartCol = xRg.Column

For i = StartCol To xRg.Columns.Count + StartCol - 1

For j = xRg.Row To xRg.Rows.Count + StartRow - 1

If Cells(j, i) = "" Then

Cells(j, i).Formula = "=SUM(" & Cells(StartRow, i).Address & ":" & Cells(j - 1, i).Address & ")"

StartRow = j + 1

End If

Next

StartRow = xRg.Row

Next

End Sub

[Blocked Image: https://www.mrexcel.com/board/attachments/1632369292869-png.47536/]

Quote from royUK

Cross-posting is when you post the same question in other forums on the web. You'll find people are disinclined to respond to cross-posts because they may be wasting their time solving a problem that has been solved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the URL from the address bar in your browser) to the cross-post. We are here to help so help us help you!

Read this to understand why we ask you to do this

https://www.excelguru.ca/content.php?184

Display More

I am sorry, my bad

Quote from royUK

Cross-posting is when you post the same question in other forums on the web. You'll find people are disinclined to respond to cross-posts because they may be wasting their time solving a problem that has been solved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the URL from the address bar in your browser) to the cross-post. We are here to help so help us help you!

Read this to understand why we ask you to do this

https://www.excelguru.ca/content.php?184

Display More

Can you help me delete this thread. I can't delete. Im sorry, i am noob