Solver en VB

[saitoO]

Hola necesito ayuda con el solver, les cuento:

Tengo una columna de valores que son variables en longitud por lo que hice un VB para leer la cantidad de filas y almacenarlas en un rango para calcular promedio ,desviacion estandar,etc..


' Calcula el numero de filas y los parametros estadisticos
n = 1
ActiveSheet.Range("B2").Activate
Do While ActiveCell.Value <> ""
ActiveSheet.Cells(n, 2).Activate
n = n + 1
Loop

Set A = ActiveSheet.Range(Cells(2, 2), Cells(n - 2, 2))
promedio = Application.WorksheetFunction.Average(A)
desv = Application.WorksheetFunction.StDev(A)
kurt = Application.WorksheetFunction.kurt(A)
sk = Application.WorksheetFunction.Skew(A)


Mi problema es si existe alguna manera de declarar un solver en VB que haga kurt igual a cero moviendo cuatro numeros que estan declarados en celdas del archivo o que pueda declararlas en el mismo VB.