Tardanza Subtotales

Tengo que calcular 4 subtotales sobre unas 3590 filas
sobre los elementos de 4 columnas distintas, por lo que
por cada una voy a Datos\Subtotales y elijo cada una de
las columnas para las que quiero calcular subtotales.
Este proceso lo hago 4 veces aunque en realidad lo hago
vía VBA (aunque el resultado y el problema es el mismo
con la interfase gráfica). Sobre las 3 primeras me tarda
bastante poco (menos de 1 minuto) pero sobre la cuarta me
tarda unos 8 minutos!!!!
La particularidad de la cuarta es que casi todos sus
valores son distintos y en las otras filas NO!!!
El usuario igualmente quiere calcular subtotales sobre
esta columna SI o SI...

Hay alguna forma de que el cálculo de subtotales se haga
más rápido o esto es normal para esta cantidad de filas
teniendo muchos valores distintos????

Se puede hacer alguna cosa???

.