Sumar restar desde userform en hoja excel vb cells 1+cells 2=cells3. Operación generada al incerta

hola buen dia
soy principiante y estoy integrando una base de datos excel a un formulario
en vb y tengo un inconveniente con con la formulación o la generación de campos
formulados.
este es mi caso
private sub
cmdguardar_click()
worksheets("base").visible = true
worksheets("base").select
dim fecha as string
dim frente as string
dim turno_entrada as string
dim turno_salida as string

dim horas_turno as string ´(este campo en la hoja es el que nesecito
formular cells"turno_entrada - turno_salida" )

dim operador as string
dim codigo_equipo as string
dim horometro_inicial as string
dim horometro_final as string

dim horas_trabajadas as string ´(este campo en la hoja es el que nesecito
formular cells"horometro_inicial - horometro_final" )

dim cantidadl1 as string 'linea 1
dim unidadl1 as string
dim descripcionl1 as string
dim suministral1 as string
dim del1 as string
dim al1 as string
dim actividadl1 as string
dim observaciones as string
dim cantidadl2 as string ' linea 2
dim unidadl2 as string
dim descripcionl2 as string
dim suministral2 as string
dim del2 as string
dim al2 as string
dim actividadl2 as string
dim cantidadl3 as string ' linea 3
dim unidadl3 as string
dim descripcionl3 as string
dim suministral3 as string
dim del3 as string
dim al3 as string
dim actividadl3 as string
dim cantidadl4 as string ' linea 4
dim unidadl4 as string
dim descripcionl4 as string
dim suministral4 as string
dim del4 as string
dim al4 as string
dim actividadl4 as string
dim cantidadl5 as string ' linea 5
dim unidadl5 as string
dim descripcionl5 as string
dim suministral5 as string
dim del5 as string
dim al5 as string
dim actividadl5 as string
dim cantidadl6 as string ' linea 6
dim unidadl6 as string
dim descripcionl6 as string
dim suministral6 as string
dim del6 as string
dim al6 as string
dim actividadl6 as string
dim cantidadl7 as string ' linea 7
dim unidadl7 as string
dim descripcionl7 as string
dim suministral7 as string
dim del7 as string
dim al7 as string
dim actividadl7 as string
dim cantidadl8 as string ' linea 8
dim unidadl8 as string
dim descripcionl8 as string
dim suministral8 as string
dim del8 as string
dim al8 as string
dim actividadl8 as string
dim cantidadl9 as string ' linea 9
dim unidadl9 as string
dim descripcionl9 as string
dim suministral9 as string
dim del9 as string
dim al9 as string
dim actividadl9 as string
dim cantidadl10 as string ' linea 10
dim unidadl10 as string
dim descripcionl10 as string
dim suministral10 as string
dim del10 as string
dim actividadl10 as string
dim al10 as string
dim ultimafila as double
fecha = txtfecha.value
frente = cmbfrente.value
turno_entrada = cmbturno_entrada.value
turno_salida = cmbturno_salida.value

horas_turno = ´no se como formularlo o condicionarlo aca

operador = cmboperador.value
codigo_equipo = cmbequipo.value
horometro_inicial = txthorometro_inicial.value
horometro_final = txthorometro_final.value

horas_trabajadas = ´no se como formularlo o condicionarlo aca

cantidadl1 = txtcantidadl1.value ' linea 1
unidadl1 = txtunidadl1.value
descripcionl1 = cmbdescripcionl1.value
suministral1 = cmbsuministral1.value
del1 = combobox24.value
al1 = combobox25.value
actividadl1 = combobox26.value
observaciones = txtobservaciones.value
cantidadl2 = txtcantidadl2.value ' linea 2
unidadl2 = txtunidadl2.value
descripcionl2 = cmbdescripcionl2.value
suministral2 = cmbsuministral2.value
del2 = combobox27.value
al2 = combobox28.value
actividadl2 = combobox29.value
cantidadl3 = txtcantidadl3.value ' linea 3
unidadl3 = txtunidadl3.value
descripcionl3 = cmbdescripcionl3.value
suministral3 = cmbsuministral3.value
del3 = combobox30.value
al3 = combobox31.value
actividadl3 = combobox32.value
cantidadl4 = txtcantidadl4.value ' linea 4
unidadl4 = txtunidadl4.value
descripcionl4 = cmbdescripcionl4.value
suministral4 = cmbsuministral4.value
del4 = combobox33.value
al4 = combobox34.value
actividadl4 = combobox35.value
cantidadl5 = txtcantidadl5.value ' linea 5
unidadl5 = txtunidadl5.value
descripcionl5 = cmbdescripcionl5.value
suministral5 = cmbsuministral5.value
del5 = combobox36.value
al5 = combobox37.value
actividadl5 = combobox38.value
cantidadl6 = txtcantidadl6.value ' linea 6
unidadl6 = txtunidadl6.value
descripcionl6 = cmbdescripcionl6.value
suministral6 = cmbsuministral6.value
del6 = combobox39.value
al6 = combobox40.value
actividadl6 = combobox41.value
cantidadl7 = txtcantidadl7.value ' linea 7
unidadl7 = txtunidadl7.value
descripcionl7 = cmbdescripcionl7.value
suministral7 = cmbsuministral7.value
del7 = combobox42.value
al7 = combobox43.value
actividadl7 = combobox44.value
cantidadl8 = txtcantidadl8.value ' linea 8
unidadl8 = txtunidadl8.value
descripcionl8 = cmbdescripcionl8.value
suministral8 = cmbsuministral8.value
del8 = combobox45.value
al8 = combobox46.value
actividadl8 = combobox47.value
cantidadl9 = txtcantidadl9.value ' linea 9
unidadl9 = txtunidadl9.value
descripcionl9 = cmbdescripcionl9.value
suministral9 = cmbsuministral9.value
del9 = combobox48.value
al9 = combobox49.value
actividadl9 = combobox50.value
cantidadl10 = txtcantidadl10.value ' linea 10
unidadl10 = txtunidadl10.value
descripcionl10 = cmbdescripcionl10.value
suministral10 = cmbsuministral10.value
del10 = combobox51.value
al10 = combobox52.value
actividadl10 = combobox53.value
ultimafila = activesheet.usedrange.row - 1 + activesheet.usedrange.rows.count
cells(ultimafila + 1, 2) = fecha
cells(ultimafila + 2, 2) = fecha
cells(ultimafila + 3, 2) = fecha
cells(ultimafila + 4, 2) = fecha
cells(ultimafila + 5, 2) = fecha
cells(ultimafila + 6, 2) = fecha
cells(ultimafila + 7, 2) = fecha
cells(ultimafila + 8, 2) = fecha
cells(ultimafila + 9, 2) = fecha
cells(ultimafila + 10, 2) = fecha
cells(ultimafila + 1, 1) = frente
cells(ultimafila + 2, 1) = frente
cells(ultimafila + 3, 1) = frente
cells(ultimafila + 4, 1) = frente
cells(ultimafila + 5, 1) = frente
cells(ultimafila + 6, 1) = frente
cells(ultimafila + 7, 1) = frente
cells(ultimafila + 8, 1) = frente
cells(ultimafila + 9, 1) = frente
cells(ultimafila + 10, 1) = frente
cells(ultimafila + 1, 4) = turno_entrada
cells(ultimafila + 1, 5) = turno_salida
cells(ultimafila + 1, 6) = horas_turno ´aca deberia tomar el resultado de la
condicion anterior y incertar el valor en la celda
cells(ultimafila + 1, 7) = operador
cells(ultimafila + 2, 7) = operador
cells(ultimafila + 3, 7) = operador
cells(ultimafila + 4, 7) = operador
cells(ultimafila + 5, 7) = operador
cells(ultimafila + 6, 7) = operador
cells(ultimafila + 7, 7) = operador
cells(ultimafila + 8, 7) = operador
cells(ultimafila + 9, 7) = operador
cells(ultimafila + 10, 7) = operador
cells(ultimafila + 1, 8) = codigo_equipo
cells(ultimafila + 2, 8) = codigo_equipo
cells(ultimafila + 3, 8) = codigo_equipo
cells(ultimafila + 4, 8) = codigo_equipo
cells(ultimafila + 5, 8) = codigo_equipo
cells(ultimafila + 6, 8) = codigo_equipo
cells(ultimafila + 7, 8) = codigo_equipo
cells(ultimafila...