Agregar fila de datos en excel con VB

Mira a falta de mas datos :

Suponiendo que vas a "pasar" los datos de las columnas A,B y C
de la "Hoja1" a la "Hoja2", y que los datos siempre estan en la fila 2,
y que despues de pasar los datos los borras de la "Hoja1"

Pon en un modulo normal lo siguiente :

Sub Agrega()

Dim H1 As Worksheet
Dim H2 As Worksheet
Dim SigFila, Celda

Set H1 = Sheets("HOJA1")
Set H2 = Sheets("HOJA2")

Celda = 2

'*** DETERMINO LA SIGUIENTE FILA VACIA EN HOJA 2


SigFila = H2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

H2.Cells(SigFila, 1) = H1.Cells(Celda, 1)
H2.Cells(SigFila, 2) = H1.Cells(Celda, 2)
H2.Cells(SigFila, 3) = H1.Cells(Celda, 3)

MsgBox "Terminado", vbInformation

H2.Range("A2:C2").ClearContents

End Sub

Espero que te sirva
Saludos
José Antonio Castrejón

"Omar" wrote:

Buenos dias:

Quisiera saber si me pueden daruna mano con lo sgte:

Tengo un Libro con 2 hojas, en la 1 es el ingreso de datos y y en la 2 es la
base de datos.

Es decir ingreso los datos en la hoja 1 , y luego de presionar el boton
macro Grabar, debe agregarse la serie de datos a los campos en la hoja2,
quisiera saber cual seria el codigo Vb a utilizar.

Muchas gracias.