Colocación de datos en otra hoja.

hola

en una hoja he preparado mucha información y
además el usuario puede rellenar una serie de campos a base de menús
combinados y otros campos en los que puede rellenar texto. El caso es que la
suma de estos campos generarán una línea de datos en una base de datos que
está "oculta" en otra hoja en el mismo libro. Mi idea es que se puedan ir
colocando los datos en una *línea siguiente* a medida que se van incorporando
en la hoja principal de información y captación de datos.

creo que, para poder facilitarte una rspuesta un poco cercana a 'tu'
realidad, no estaria de mas si facilitaras algunos datos mas concretos
de que, como y cuando quieres hacer, todo ello en "terminos de excel",
es decir, por ej.=>

a) donde estan los datos de origen. Es decir, en que celdas, objetos,
o lo que sea, introduce el usuario los datos que luego han de pasarse
a la 'base de datos'.

b) cuales son los campos/columnas de destino en la 'BD'

c) como o en funcion de que ha de saber excel que ya se han acabadao
de cargar los nuevos datos en la hoja de 'captacion' y que hay que
cargarlos como nuevo registro en la 'BD'

d) posiblemente algunos factores mas que se me escapan

bueno, en cualquier caso, por si te sirve de orientacion para empezar,
lo primero que deberias saber, a la hora de cargar el nuevo registro
en la BD es cual es la 1ª fila libre, para lo cual una posibilidad
seria, en la columna que sepas que siempre ha de contener datos (por
ej. el campo clave o principal, que como 'buena' base de datos deberia
contener esta) hacer algo asi =>

suponiendo que el mencionado campo clave esta en la columna A de la
hoja "BD" y que comienzan en A1 (Titulo de campo) y que los datos de
la hoja de captacion estan en pej.A2:e2

with Worksheets("BD")
.range(.cells(.[a1].currentregion.rows.count + 1,1), _
.cells(.[a1].currentregion.rows.count + 1,5)).value = _
worksheets("captacion").[a2:e2].value
end with

bueno, es un ejemplo un poco cutre, pero creo que sin mayores datos es
dificil decir mucho mas, aunque las posibilidades si son muchas

un saludo
Ivan

a) para saber el nº de fila de la primera fila libre:

Dim Fila as Long
with Worksheets("Nombre_de_Hoja_BD")
Fila = .cells(