Ayuda_Modulo

hola, Lisandro 1

Hoja 1 celda [A1=Se colocara valor]
Hoja 1 celda [A2=Se colocara valor]
Hoja 1 celda [A3=Se colocara valor]
En la hoja 2 ... en las celdas inicio: A1 B1 C1 ... pero ... al guardar cambios empiece ... en la linea siguiente [...]

se parece bastante a tu consulta de principios de mes con asunto de: =>funcion buscarv o algo similar<= ;)
[en la hoja1, completa los datos 'en orden' A1, B1 y =>al final<= C1]
con unas ligeras adaptciones... to propongo el siguiente codigo...
en el modulo de 'la hoja 1' ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.ScreenUpdating = False
With Range("a1:c1")
.Copy Worksheets("Hoja2").Range("a65536").End(xlUp).Offset(1)
.ClearContents
End With
SendKeys "^{Left}"
End Sub

si el rango 'A1:C1' tiene formatos que NO 'deseas' que 'se vayan' a la hoja2 [p.e. validaciones...]
=>cambia la [sola] linea con la instruccion 'Copy' a las siguientes 3 lineas...
.Copy
Worksheets("Hoja2").Range("a65536").End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False

saludos,
hector.