I have a collumn with several matching values sorted. i.e. e4-e10 all =
6, e11-e20 all = 5, etc. The number of values will vary. I want to find
the last "6" and add a row below it and then count the number of 6's in
that range and so on and so on.

Dim cell as Range, CurVal as Long, CurCount as Long, LastRow as Long, I as
Long
CurVal = Range("E4").Value
CurCount = 1
LastRow = Range("E65536").End(xlUp).Row
For I = 5 to LastRow Step 1
If CurVal = Range("E" & I).Value Then
CurCount = CurCount + 1
Else
CurVal = Range("E" & I)
Range(I & ":" & I).Insert
I = I + 1
LastRow = LastRow + 1
Range("E" & I).Value = CurCount
CurCount = 0
End If
Next I

--
Ronald R. Dodge, Jr.
Production Statistician
Master MOUS 2000
"TRexSuz" wrote in message
...
I have a collumn with several matching values sorted. i.e. e4-e10 all =
6, e11-e20 all = 5, etc. The number of values will vary. I want to find
the last "6" and add a row below it and then count the number of 6's in
that range and so on and so on.