Hello Everyone,

Iím trying to find a way to calculate values of cells range between blank cells. Before when I had only one column it was easy and I was using the following vba:

Sub SideSum()
n = Cells(Rows.Count, 1).End(xlUp).Row + 1
zum = 0
For i = 1 To n
zum = zum + Cells(i, 1).Value
If Cells(i, 1).Value = "" Then
Cells(i - 1, 2).Value = zum
zum = 0
i = i + 1
End If
Next
End Sub


But now I need to calculate 4 columns C,D,E,F (see the picture)

1.jpg

As you can see already I have the totals for column B. I just need to sum next columns an have the sum next to the B's total.
Any suggestion?

Thanks in advance!