Excel Forum

Code: Select all

Dim c As Integer, r As Integer
Dim lastRow As Integer, iCol As Integer
c = 44
r = 4
lastRow = Cells(Rows.Count, c).End(xlUp).Row
With ActiveSheet
    Do While .Cells(lastRow, c).Offset(-1, iCol) <> ""
        .Cells(lastRow, c).Offset(1, iCol).Value = _
            Application.sum(.Range(.Cells(r, c), .Cells(lastRow, c)).Offset(0, iCol))
        iCol = iCol + 1
    Loop
End With