datos mezclados y varianzas

Hola a todos,

tengo una hoja de datos en la que se distinguen distintos grupos de
datos. Quiero calcular la varianza de cada grupo, es decir, la varianza
que presentan los datos tipo A, la de los del tipo B, etc, mediante una
macro en visual. El problema que tengo es que mis datos no estan bien
agrupados, es decir, en la hoja aparece entremezclados unos tipos con
otros. Como los "entresaco"? Hay alguna manera de calcular la varianza
de una vez? Hasta ahora lo que he hecho se parece a
For i =a To b
tipo = Cells(i, 9).Value

Select Case tipo
Case bond
bond = bond + 1
bosum = bosum + Cells(i, 5).Value
bomean = bosum / bond

Case EQUITY
equit = equit + 1
eqsum = eqsum + Cells(i, 5).Value
eqmean = eqsum / equit

Case BALANCED
bal = bal + 1
basum = basum + Cells(i, 5).Value
bamean = basum / bal

Case Else
other = other + 1

End Select
Next i

pero con esto solo consigo contar los que tengo de cada clase y
calcular su media. No hay algo mas corto, mas elegante, mas mono?

Muchas gracias!!!
Carmen