Convertir celdas de letra a numero en un fron

Hola

he copiado tu formula en un fron para convertir texto en numero.

Range("a1").Value = CDbl(Base)

Lo e colocado en el texb.

En el botón de insertar etc y no logro que funcione

Solo me ha funcionado con la siguiente formula

Range("a1:h1" & i).Value = CDbl(Base), entonces me lo convierte todo en números pero me me cambia todas las cantidades a la ultima insertada.

gracias por todo