How do you mean pick

This piece of code will store and display the last cell in a selected
range(x)

Sub LastCell()

For Each cell In Selection
cell.Select: x = ActiveCell.Value
Next cell
MsgBox x

End Sub

http://www.excel-ant.co.uk