Find text Copy Paste to new tab

I am wanting to find all the rows with matching text "Already exists" and move it to next blank cell in sheet2 column A. I'm trying to do this with this code, but I'm not getting the pastespecial correct.

Please Login or Register  to view this content.

Haven't tried using your code, but you do see you're misspelling paste?

xlpatesall

Please Login or Register  to view this content.

I was able to get this to work. Here is the code.

Please Login or Register  to view this content.