Thanks Tom; I'm on a roll...

Now that I can get (from immediate window):
? rng.Address
$A$3,$A$5,$A$11,$A$16,$A$18

How can I derive the variables --
(Where A2 is the starting point)
A3-A2 = 1 << number of rows to include in Subtotal)
A5-A3+1 = 1
A11-A5+1= 5
A16-A11+1 = 4
A18-A16+1 = 1

Appreciate all your help..
I'm getting there..
Jim


"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:#AGJCfEiGHA.1264@TK2MSFTNGP05.phx.gbl:

> The blank cells in column A are already there:
>
> Dim rng as Range, ar as Range, rng1 as Range
> set rng = Columns("A").specialcells(xlBlanks)
> for each ar in rng.Areas
> set rng1 = ar.offset(ar.Rows.count).Resize(1,1)
> rng1.Formula = "=Subtotal(9," & ar.Address(0,0) & ")"
> Next
>
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "JimMay" <jmay@cox.net> wrote in message
> news:cILgg.40329$fG3.21866@dukeread09...
>
> > I have a couple hundred lines of Check Amts and Check Numbers (as text)
> > like below..
> > I need to Loop from bottom to top and Sum the previous amts applicable
> > to
> > The same check number. Bottom line ColA should = 12660; 2 rows up
> > should = 1,583.96, etc up to Row 2.
> > Can someone get me started?
> > TIA,
> >
> > ColA ColB
> > 197.11 65704
> > 65704
> > 78.03 65705
> > 65705
> > 27.85 65706
> > 1691.84 65706
> > 122.98 65706
> > 2275.13 65706
> > 289.95 65706
> > 65706
> > 372.22 65707
> > 57.96 65707
> > 921.05 65707
> > 232.73 65707
> > 65707
> > 12660 65709
> > 65709
> >