Jenna,

Put this formula into cell D2, and copy down to match your column C:

=IF(SUM($C$1:C2)-SUM($D$1:D1) 3500,SUM($C$1:C2)-SUM($D$1:D1),"")

Otherwise, you could use this macro:

Sub SumC()
Dim myC As Range
Dim mySum As Double
mySum = 0
For Each myC In Intersect(Range("C2:C65536"), _
ActiveSheet.UsedRange)
mySum = mySum + myC.Value
If mySum 3500 Then
myC(1, 2).Value = mySum
mySum = 0
End If
Next myC
End Sub

HTH,
Bernie
MS Excel MVP


"jenna" wrote in message
...

Please help

i need a procedure to loop down column c and the first row where the sum is
greater than 3500 put that amount in the adjacent column, then repeat from
the next row down.

thanks