I'm trying to understand and simplify an enormous macro that was written in
1999. I came across a section that I don't understand what it is doing. The
macro is

'Neg Amounts (AccDep, GnLss, Purch only)...Other Accounts Count
Range("A1").Select
Range("A2").Select
AccountsCost = 0
Do While ActiveCell.Range("A1") 0
AccountsCost = AccountsCost + 1
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
Range("A1").Select

A sample of the data:

Co Acct Sum Of Expr1
3342010 16,295.00
3344010 382,039.00
3348010 100,467.00
4300010 466,752.00
4302010 62,314.00

Can someone tell me what this is doing? Thanks!!