Move contents of manually selected cell

I have an array, let’s say B1:D20. I would like to be able to manually select any cell within this array and then run a macro which will place the contents of the selected cell into the cell in column A in the same row as my selection. Any help I can get would be greatly appreciated.