Excel - Numero de Valores Unicos

Buenas dias,

Tengo una Base de Datos con numerosas columnas y numerosas filas. Deseo incluir el encabezado en una validacion y que cada punto de la validacion muestre el número de valores únicos que contiene esa opción. Lo he conseguido con el siguiente código bucle:

'identifico los valores unicos de cada columna con filtros avanzados
dim column as long

range("A1").select

while activecell<>""

column=activecell.column

Range(cells(1,column),cells(65536,column)).select
selection.advancedfilter Action:=x1FilterCopy, CopyToRange:=sheets("Calculos").cells(1,column)

activecell.offset(0,1).select

wend

Luego iria a la hoja calculos y con una formula contara identificaria el numero de valores unicos anidedando esta formula al nombre del encabezado de cada columna.

Por ultimo, asignaria el resultado a la validación.

Mi pregunta es, ¿hay alguna manera de optimizar este código?¿existe alguna instrucción directa que te rellene una validación de valores únicos? Al tener un gran numero de filas me va lento.

gracias

Jose

Algo enredado lo que envias, ya que me parece que estas usando el termino "validacion" con una interpretacion propia y no con lo que significa dicha herramienta de EXcel

Abraham