If you want to sort your data in the next column over try:

[VBA]=IF(A2=A1,"",MAX($B$1:B1)+1) [/VBA]

and drag down. Again untested.