VBA LOOP SUM CONSECUTIVE NUMBERS

[weissihm]

I have a spreadsheet that I need to sum column L, if column J data is consecutive. If the reference is consecutive, they were most likely on the same order and I need to know the total of the order to compare to another spreadsheet.

It would be nice if it went from A2 to the last column, but I can also input a range if needed.

Thanks

REFERENCE (COLUMN J)	AMOUNT (COLUMN L)	EXPECTED OUTCOME (COLUMN M)
401868	4.49	4.49
401900	7.51
401901	20.03	27.54
402207	4.58	4.58
402480	65	65
402484	10.02	10.02
402495	8.79
402496	9.65	18.44

 

[Puertorekinsam]

Sub rollingsum()

i = 1
rollsum = 0
Do Until Cells(i, 10) = ""
    rollsum = rollsum + Cells(i, 11)
    If Cells(i + 1, 10) <> Cells(i, 10) + 1 Then
        Cells(i, 12) = rollsum
        rollsum = 0
    End If

    i = i + 1
Loop
End Sub

 

[weissihm]

Sub rollingsum()

i = 1
rollsum = 0
Do Until Cells(i, 10) = ""
    rollsum = rollsum + Cells(i, 11)
    If Cells(i + 1, 10) <> Cells(i, 10) + 1 Then
        Cells(i, 12) = rollsum
        rollsum = 0
    End If

    i = i + 1
Loop
End Sub

Thank you for the quick response. That works perfectly.