Acerca de operaciones de excel en formularios vb

buen dia

estoy iniciando a programar vb de excel 2010 y estoy fallando en intentos de formular mi rangos de hoja de excel desde el formulario de vb

lo que estoy realizando es una base de datos de eventos donde un registro tiene 10 variables distintas de conceptos distintos me explico

registro un turno de operación

frente
fecha
mes
turno_entrada
turno_salida
horas turno
operador
codigo_equipo
horometro_inicial
horometro_final
horas trabajadas
cantidad
unidad
descripción
suministra
de
a
actividad
observaciones
tiempo actividad
hpt
htt
hmp
hr
indice disponibilidad

aca necesito formular o realizar operaciones en las celdas con los nombres de fila subrayadas; para un dia de trabajo existen varios turnos para un equipo con tiempos de trabajo con distintos operadores a os que se les realiza distintos suministros y que realizan distintas actividades.

lo estoy programando de esta forma

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
dim operador as string
dim codigo_equipo as string
dim horometro_inicial as string
dim horometro_final as string
dim horas_trabajadas as string
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 =
operador =cmboperador.value
codigo_equipo =cmbequipo.value
horometro_inicial =txthorometro_inicial.value
horometro_final =txthorometro_final.value
horas_trabajadas =val(range("k2"))
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
cells(ultimafila + 1, 7) = operador
cells(ultimafila + 2, 7) = operador
cells(ultimafila + 3, 7) = operador
cells(ultimafila + 4, 7) = operador
cells(ultimafila + 5, 7) =...