Macro to copy and paste from list to same cell

I want to make macro that copies values in a1 to a100 to cell c10 everytime I click enter.(first enter a1 to c10,second enter a2 to c10 and so on to the end of the list).

Thank you in advance

Thank you very much,but that code didn't clear c10 cell list did come like this to c10 : 4, 6, 4, 3, 2, 1, 3, 5
They should come one by one after enter: 4 enter => 4 to c10, second enter 6 to c10 and so on.

Any Idea yet?

Can you provide a sample workbook with before and after? On my test it seemed to do what you requested.

Here I try to demonstrate what I want to do. I have dog id numbers in column A and when i push enter button the first id goes to cell F1 and that dog's pedigree will be made.After second enter the second id goes to F1 and new pedigree will be made and so on
pedigree.JPG

OK I think I misunderstood. One way is too create a Sheet called "Helper" then number the cells in Column A 1 to 100 reflecting the row number.

Then you can use this macro.

Sub dogholidayzz()

Range("C10").ClearContents
Range("A" & Sheets("Helper").Range("A1").Value).Copy Range("C10")
Sheets("Helper").Range("A1").Delete
    
End Sub

Probably more elegant ways though.

Thank you worked fine with values but not if text.

Not sure what you mean? Can you attach a file with some sample data where it doesn't work. To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.