Sum Blank

[billandrew]

Hello All

Trying to sum range above when cell is Blank. Using the below code.

Sub SumBlank()Dim lr&
Dim i&
lr = Cells(Rows.Count, 1).End(xlUp).Row
total = 0


With ActiveSheet
For i = 1 To lr + 1
If Cells(i, 1) <> "" Then
total = total + Cells(i, 1)
End If
Next
End With
End Sub

 

[billandrew]

If a "Title" row is inserted above the first cell then the formula works perfect.

Thank You

 

[billandrew]

@ Fluff

Much appreciated.

 

[Rick Rothstein]

@ Fluff Works perfect. Why is there a need to include an else.

@ Mr. Rothstein. Missed this one - using the SpecialCells Method is also adequate.

Just wondering... you describe Fluff's code as being "perfect" but my code as being only "adequate"... did my code not do something correctly for you? If so, let me know what and I will see if I can address the problem.

 

[billandrew]

not at all Mr.Rothstein. Your assistance with this and all the help I've received is exceptional!!!

I'm actually learning and attempting to determine which methods are easier for me. The initial code I posted is a bit easier to interpret however I believe not as proficient as your method.