copy find-paste

Hello,

I would like to create macro, where it would on macro run copy text from active cell and find that value in another sheet (in column H) and select that cell.

What I did is this:

    Selection.Copy
    Sheets("sheet2").Select
    Columns("H:H").Select
    Cells.Find(What:=Paste, LookAt:=xlPart, SearchOrder:=xlByColumns).Activate

But this results in empty cell in the last non empty row in column A

Thanks for help,
Vito.