thanks
i tried to use the formulas, then macro recording seems to fit for further
more routine computation.

regards,
driller
--
*****
birds of the same feather flock together..

Try this entered in D2. D1 is a column header (or empty cell, or just not a
number)

=IF(ROWS($1:1)<=COUNT(1/FREQUENCY(rng,rng)),INDEX(rng,MATCH(0,INDEX(COUNTI F(D$1:D1,rng),,1),0)),"")

Copy down until you get blanks.