Hi Ardus,

that's really good, I like it, much better and straight forward than my
suggestion!
It only has a minor problem: if column A is not yet filled at all, it
will put the value into A2, not A1. So perhaps we should write:
if Range("A1").Value = "" then
Range("A1").value= range ("B1").Value
else
Range("A1").End(xlDown).offset(1,0).value = range("B1").value
End if

Udo