Perchè hai aperto un'altra discussione con un altro account?

Come ti dicevo qui non conosco una soluzione diretta tramite macro ma, sempre basandomi sull'esempio che ti ho fatto ieri, è sufficiente usare una formula del genere

=SE(VAL.ERRORE(CERCA.VERT(B1;$A$1:$A$5;1;0));B1;"# ##")

e poi effettuare un semplice ordinamento.