Hola:
Entrá al Editor de macros (Alt + F11).
Seleccioná
con doble clic el objeto
HOJA que será la hoja donde ingreses datos en A1.
Copiá la siguiente rutina. Ajustá los nombres de las hojas por las tuyas si son diferentes.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) =
"A1" Then
fila = Sheets("Hoja2").Range("B65536").End(xlUp).Row + 1
Target.Copy Destination:=Sheets("Hoja2").Cells(fila, 2)
End If
End Sub
Probalo y comentame si esto resolvió tu problema.
Saludos
Elsa
Tus mejores opciones en manuales VBA desde:
http://es.geocities.com/lacibelesdepunilla/manuales
