• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User


  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Find Empty Cell and Sum Cells Above


Active Member
Option Explicit

Sub AskHelp()
    Dim c As Range, rng As Range
    Dim lr As Long, x As Long
    lr = Range("E" & Rows.Count).End(xlUp).Row
    Set rng = Range("E3:E" & lr + 1)
    x = 0
    For Each c In rng
        If c <> "" And c.Offset(0, -1) <> "" Then
            x = x + c
        ElseIf c = "" Then
            c = x
            x = 0
        End If
    Next c
End Sub


Thanks Bosco, but could you revise your formula so i can use it on column E? And combine with my formula on Clumn E which is on E3 and go down = C3*D3?

thank you so much