Trying to add a row after the last value and count

[TRexSuz]

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.

 

[Ronald Dodge]

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