do while not isempty(activecell)
dblTot = dblTot + ActiveCell.Value
ActiveCell.Offset(1,0)
Loop
worksheets("Sheet1").Range("B9").Value = _
dblTot

--
Regards,
Tom Ogilvy



wrote in message
...
I want to make a Do while loop for keeping a running total
of account. I am writing a program to create an automated
capital budget. I want to keep a running total of the
different sub accounts, then when it come to an empty cell
in the sub account number line, to print the total to
another worksheet.