macro para copiar datos a otra hoja

hola,

una macro que cuando
escriban en la ultima celda "G1" esa informacion se copie
ala hoja 2 en el mismo orden (solo valores) y que una ves
copiado las celdas originales de la hoja1 se limpien para ingresar
nuevos datos y esos datos se copien abajo de los anteriores en la
hoja2 y asi sucesivamente

suponiendo que la hoja1 se llama "Hoja1" y la 2 "Hoja2", prueba a ver
si te vale algo asi:

en el modulo de la hoja (click secundario en la pestaña de la hoja =>
Ver codigo) pega esta macro, vuelve a excel y haz pruebas a ver si es
lo que buscas

'en el modulo de la hoja (OJO que no estes usando ya el evento
Change)
'pega desde aqui
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celda As Range
If Not Intersect(Target, [g1]) Is Nothing Then
With Hoja2
Set celda = IIf(.[a1] = "", .[a1], .
[a65536].End(xlUp).Offset(1))
[a1:g1].Copy
celda.PasteSpecial xlPasteValues
Application.EnableEvents = False
[a1:g1].ClearContents
Application.EnableEvents = True
[a1].Select
Set celda = Nothing
End With
End If
End Sub
' pega hasta aqui

a ver si te ayuda

un saludo
Ivan