On Apr 8, 12:32*pm, Learn wrote:
Hi

I am finding a solution (formula) to automatically sum (3 or 12) cells
on the right after encountering first right cell greater than 0.

Currently, this is done manually. (eg. 3.8 is the sum of 2.9 (Aug) +
0.5 (Sep) + 0.4 (Oct).)

Question is there a way to do this automatically because there are
thousands of rows..and this will drive me crasy in maintaining this
worksheet effectively. Thanks.

First * First
3M * * 12M * * * *Jul * * Aug * * Sep * * Oct * * Nov
Dec ....................
---------------------------------------------------------------------------
----------------------------------------------------------------
3.8 * * 5.4 * * * * *0.0 * * 2.9 * * 0.5 * * 0.4 * * 0.3
0.2 ....................
1.1 * * 2.2 * * * * *0.0 * * 0.9 * * 0.0 * * 0.2 * * 0.0
0.4 ....................
0.0 * * 0.0 * * * * *0.0 * * 0.0 * * 0.0 * * 0.0 * * 0.0
0.0 ....................
4.1 * * 5.2 * * * * *0.0 * * 0.0 * * 0.0 * * 1.9 * * 1.3
0.9 ....................
3.1 * * 5.1 * * * * *0.0 * * 0.0 * * 0.0 * * 0.5 * * 1.7
0.9 ....................
2.6 * * 3.9 * * * * *0.0 * * 0.0 * * 0.0 * * 0.4 * * 1.1
1.1 ....................

Thanks.

Sub sumfromfirstright()
For r = 2 To 7
For c = Cells(r, Columns.Count) _
..End(xlToLeft).Column To 1 Step -1
If Cells(r, c) = 0 Then
mc = c + 1
Exit For
End If
Next c
'MsgBox mc
MsgBox Cells(r, mc) _
+ Cells(r, mc + 1) _
+ Cells(r, mc + 2)
Next r
End Sub