Finding the last entered value in a column

[serge]

Hi,

I would like to find the last entered value in a column.
For exemple: I have a range in column A from A1 to A99. If someone put
in a value in cell A100, I would like to find the value and put the
value in another cell B5.
Can someone help me?

 

[acces]

Range("b5").Value = Sheets("intro").Range("a65536").End(xlUp).Value