Advice needed to speed this code.

[p45cal]

Since you sum all values per 'row' you could try to reduce the code to:

Not quite, it sums the sheet-equivalent of only the cells to the left on the same row as the cell in question, but not including that cell's value.