buenas e visto muchos vídeos por youtube y estoy realizando un pequeño cuadro de inventario rápido y sencillo, tomando el patrón de uno de los vídeos que e visto e diseñado uno me funciono, pero lo personalice como:

les explico

tengo 4 pestañas de las cuales 3 las voy a manejar yo y la otra es para que mis empleados lo vean pero no modifiquen nada
en la pestaña producto tengo un botón que con el puedo ingresar datos y le dije a la macro que los quería que se alojaron en la pestaña principio, entrada y existencia eso esta bien no tengo problemas; 

mi problema es 

que no quiero que en la pestaña principio me aloje los resultados a partir de la celda A1, sino a partir de la celda A11

no veo que me falta, quien me pueda ayudar por favor 


aquí les dejo el archivo

mi inventario.xlsm

Sustituye el código del botón Registrar del formulario frm_RegistrarProducto por este:

 

Private Sub CommandButton1_Click()
Dim Celda As Range
Dim Final1 As Integer
Dim Final2 As Integer
Dim Final5 As Integer
'-----------------------------------------------
Set Celda = Hoja1.Columns("A").Find(what:=txt_CodProd, lookat:=xlWhole)
If Not Celda Is Nothing Then
   Me.txt_CodProd.BackColor = &H8080FF
   MsgBox ("El producto ya existe o está en blanco" + Chr(13) + _
           "Ingrese  un código de producto  válido"), vbCritical
   Me.txt_CodProd.SetFocus
   Exit Sub
End If
'-----------------------------------------------
Final1 = Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1
Final2 = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
Final5 = Hoja5.Range("A" & Rows.Count).End(xlUp).Row + 1
'-----------------------------------------------
If MsgBox("¿Son correctos los datos?" + Chr(13) + "       ¿Desea proceder?", _
            vbOKCancel + vbQuestion) = vbOK Then
   Me.txt_CodProd.BackColor = &HFFFFFF
   Hoja1.Cells(Final1, 1) = Me.txt_CodProd
   Hoja1.Cells(Final1, 2) = Me.txt_Nombre
   Hoja1.Cells(Final1, 3) = Me.txt_Descrip
   '-----------------------------------------------
   Hoja2.Cells(Final2, 1) = Me.txt_CodProd
   Hoja2.Cells(Final2, 2) = Me.txt_Nombre
   Hoja2.Cells(Final2, 3) = Me.txt_Descrip
   '-----------------------------------------------
   Hoja5.Cells(Final5, 1) = Me.txt_CodProd
   Hoja5.Cells(Final5, 2) = Me.txt_Nombre
   Hoja5.Cells(Final5, 3) = 0
   '-----------------------------------------------
   Me.txt_CodProd = ""
   Me.txt_Nombre = ""
   Me.txt_Descrip = ""
   Me.txt_CodProd.SetFocus
Else
   Exit Sub
End If
End Sub

 

gracias antonio me sirvió mucho de verdad gracias, pero en la opción de entrada no me deja introducir los datos 

checa el archivo anexo

mi inventario (1).xlsm

muchas gracias ya resolví mi problema de verdad fue de gran ayuda su aporte