Crear registro cambios en celda Excel

En el modulo de hoja (no modulo común) escribe:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
         Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = Target.Value
End If
End Sub

Iniciará a hacer tu registro a partir de la celda B2 (coloca en B1) un título cualquiera

Saludos,

Jaime

PD: No olvides valorar la respuesta