Hi Everyone,
I have this code that searches for the blank cells that I have created and subtotals the values above.
This is perfect & exactly what I need, EXCEPT, I need it to do this for not just column F but F:V & can't seem to get this worked out to do so. I learned programming in pascal & java back in high school (6+ years) so I have a little background but VBA is an entirely different beast and I can't quite get anything to work.
Is there a way to make this so the subtotal can be arrayed during the procedure or after it's executed?
Any help is much appreciated.
[code]
Dim StartRow As Integer
Dim EndRow As Integer
StartRow = 11
EndRow = Range("F5550").End(xlUp).Offset(1, 0).Row
For i = StartRow To EndRow
If Cells(i, "F") = "" And i > StartRow Then
Cells(i, "F").Formula = "=SUM(F" & StartRow & ":F" & i - 1 & ")"
StartRow = i + 1
End If
Next
[code/]
Bookmarks