hier ein kleines beispiel:
https://www.herber.de/bbs/user/5474.xls
Vielen dank schon mal.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then 'C4 = Eingabefeld
Cells(Range("A65536").End(xlUp).Row + 1, 1) = Target
Target.Select 'kann man auch weglassen, setzt den Cursor wieder auf C4
End If
End Sub