-Hi,

why don't you try:-

Sub sumthem()

dim i as long
dim rsum as single

For i = 1 to activesheet.range("d800").end(xlup).row + 1
rsum = rnum + activesheet.Range ("D" & i).value
If activesheet.Range ("D" + 1).value = "" activesheet.And Range (D" &
i + 1).Value = "" Then
activesheet.Range("D" & i).value = rsum
rsum = 0
End if
next
end sub

-If this does not solve the problem replace "activesheet" b
Worksheets("ref"), where "ref" is an appropriate reference to th
worksheet you intend to process.

Let me know in case this does not work out,

urs

--
lenhardtur
-----------------------------------------------------------------------
lenhardturs's Profile: http://www.excelforum.com/member.php...fo&userid=1584
View this thread: http://www.excelforum.com/showthread.php?threadid=27404