B1: =COUNTIF(A:A,A1)

and copy down

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Snake Plissken" wrote in message
...
you dont need a macro in fact...
here is the situation:

header(A1) counter(B1)
a =IF(A2<A1;1;1+B1)
a copy formula seen above
etc