programacion con visual en excel

[matteomatico]

hola avellaneda gracias, por tu ayuda... logre solucionar el problema, ahora nose si me puedes ayudar para terminar este codigo,

mira, yo ya programe un boton que hace la consulta y busqueda de un dato, eso esta listo... entonces tengo 2 hojas en excel:

en la hoja 1 esta el inventario y en la hoja 2 tengo las ventas,

por ende cuando hago la consulta a la hoja 1 con dicho boton, me muestra en un textbox el nombre del producto, luego relleno los otros campos y ahi ingreso la venta que es el codigo que me ayudaste a solucionar... pero me gustaria que una vez que termine de ingresar los datos volviera a la hoja1 y a la primera celda de la hoja "a1", si pudieras ayudarme te lo agradeceria.. de tofas maneras dejo el codigo pa que lo veas

'Si cualquiera de los campos están vacíos no se ejecutará nada
Private Sub CmdIngresar_Click()
If CmbCod = Empty Or _
TxtBoleta = Empty Or _
TxtProducto = Empty Or _
TxtTipo_Precio = Empty Or _
TxtPrecio = Empty Or _
TxtVendedor = Empty Or _
TxtTipo_venta = Empty Or _
TxtCantidad = Empty Then
Exit Sub
End If
'De lo contrario seleccionamos la celda A2 para insertar el registro ahí

Worksheets("Hoja2").Select
'Insertar
Selection.EntireRow.Insert
'Llenamos las celdas con los valores introducidos en los campos
ActiveCell.Value = CmbCod
ActiveCell.Offset(0, 1).Value = Val(TxtBoleta)
ActiveCell.Offset(0, 2).Value = TxtProducto
ActiveCell.Offset(0, 3).Value = Val(TxtTipo_Precio)
ActiveCell.Offset(0, 4).Value = Val(TxtPrecio)
ActiveCell.Offset(0, 5).Value = TxtVendedor
ActiveCell.Offset(0, 6).Value = TxtTipo_venta
ActiveCell.Offset(0, 7).Value = Val(TxtCantidad)

'Vaciamos los datos
CmbCod = Empty
TxtBoleta = Empty
TxtProducto = Empty
TxtTipo_Precio = Empty
TxtPrecio = Empty
TxtVendedor = Empty
TxtTipo_venta = Empty
TxtCantidad = Empty

'Se "refresca" el listado del combobox
CmbCod.Clear
Range("A2").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
CmbCod.AddItem ActiveCell.Value
Loop

'Se posiciona el cursor sobre el Combobox
CmbCod.SetFocus

End Sub

ahora nose si queires te pego aqui el codigo del boton que hace la consulta?
mil gracias