Numero almacenado como texto

Buenos dias, estoy haciendo un programa en excel para la realizar la
produccion de mi empresa, el programa contiene macros, los cuales
simplemente son para poner cuanto se quiere producir y el me devuelve
cuanto hay que agragar de cada materia prima, al programa le agregue la
opcion que cuando me haga la formulacion me de la opcion de guardar en
un hoja de calculo los resultados e ingresar el numero del lote que se
va a producir, pero cuando le doy en aceptar el pasa todo a la hoja de
calculo como lo desee, pero todo queda como si fuera formato de texto y
en realidad son numeros, asi que no puedo sumar la tatalidad de
produccion sin antes darle click en cada celda y convertir en numero,
quisiera saber que puedo hacer para corregir este error, excel me da la
opcion de escojer el rango y multiplicarlo por 1, pero entre mas grande
se vuelve la base de datos mas lento se pone macro para transformar lo
requerido en numeros y ciertas celdas que contien formulas son
remplazadas por el valor y borran la formula

hay algun comando en los macros para que el directamente lo tome como
valor numerico y no texto. el programa tiene varias partes y es muy
extenso asi que solo pondre el codigo de como guardo los datos.

'Accion que es ejecuta el dar Click En Formular

Private Sub Guardar_Click()

Dim iRow As Long
Dim ws As Worksheet

'FMC

If Worksheets("Referencias").Cells(2, 3) = 1 Then
Set ws = Worksheets("Informe FMC")
'Comando Para Encontrar La Primera Fila Vacia en la Base de Datos
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

If Worksheets("Referencias").Cells(2, 2) = 1 = True Then

ws.Cells(iRow, 1).Value = Formular.txtDate.Value
ws.Cells(iRow, 2).Value = Formular.Reactor.Value
ws.Cells(iRow, 3).Value = Formular.Reaccion.Value

ws.Cells(iRow, 4).Value = Worksheets("FMC").Range("C7").Value
ws.Cells(iRow, 6).Value = Worksheets("FMC").Range("C14").Value
ws.Cells(iRow, 7).Value = Worksheets("FMC").Range("C8").Value


Else

ws.Cells(iRow, 1).Value = Formular.txtDate.Value
ws.Cells(iRow, 2).Value = Formular.Reactor.Value
ws.Cells(iRow, 3).Value = Formular.Reaccion.Value

ws.Cells(iRow, 4).Value = Worksheets("FMC").Range("G7").Value
ws.Cells(iRow, 6).Value = Worksheets("FMC").Range("G14").Value
ws.Cells(iRow, 7).Value = Worksheets("FMC").Range("G8").Value

End If
End If

Formular.Hide
Inicio.Show
Unload Me

End Sub


Nota: lo unico que me queda en formato numerico es cuando ingreso la
opcion de numero de lote.