Macro para añadir datos de una tabla a otra

Cerrado
bderta
Message postés
1
Date d'inscription
jueves, 27 de septiembre de 2018
Estatus
Miembro
Última intervención
jueves, 27 de septiembre de 2018
- 27 sep 2018 a las 11:37
Hola muy buenas,

Estoy intentando pasar los datos que voy introduciendo en un formulario de una hoja a una base de datos (tabla) en la hoja siguiente.

El macro que utilizo es este:

Range("C5").Select
Sheets("Datos").Select
Rows("2:2").Select
Sheets("Formulario").Select
Range("C5, C6, C7, C8, C9, C10, C11, C12, C13, C14, C15").Select
Selection.Copy
Sheets("Datos").Select
Range("A:L").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False

Sheets("Formulari").Range("C5, C6, C7, C8, C9, C10, C11, C12, C13, C14, C15").Value = ""
End Sub

El problema lo tengo en los comandos que he subrayado. Necesito poner un rango que me permita ir introduciendo los datos de la primera tabla y que se copien en la primera fila de la base de datos, luego al introducir otros que se copien en la segunda fila, luego a la tercera, etc.

Por ejemplo, si pongo de rango Range("A2:L2") me sirve para la primera fila, pero al volver a rellenar el formulario se me borra lo que había introducido y se sustituye por la nueva información.

No sé si me habré explicado bien, muchas gracias.