I'm trying to sum numbers between non zero's but when there are multiples in rows it doesn't work. For example row 5 should sum to 6 and row 6 should sum to 12(1+8+3). However with the code I have below rows 5 and 6 are both summing to 16 (4+1+8+3). Please help!!

Thanks

Trevor

Eg.

1 0 3

2 Yes 2

3 0 5

4 0 2

5 Yes 6

6 Yes 4

7 0 1

8 0 8

9 0 3

10 Yes 2

Sub SumBetween()

' This macro sums the differences between Yes's

' Macro1 Macro

' Macro recorded 22-08-2005

'Clears column V, sum of the differences

Sheets("WorkPage").Select

Columns("V:V").Select

Selection.ClearContents

'Sets ranges to column P then formats to formula and text cell

Set rng = Columns(16).SpecialCells(xlFormulas, xlTextValues)

i = 0

For Each ar In rng.Areas

i = i + 1

If i <> 1 Then

Set rng1 = Range(cell.Offset(1, 4), ar.Offset(-1, 4))

cell.Offset(0, 6).Value = Abs(Application.Sum(rng1))

End If

Set cell = ar

Next

MinAdd (myAdd)

MinPower

Calculate

End Sub

## Bookmarks