recalculate last row

hello everyone
I am stuck in the web to find a solution to something I think it's very simple, but somehow all topics around the forums are not clear to me.

Here the code

Please Login or Register  to view this content.

So, the first time I launch the macro, ti works perfectly. It finds the first empty cell in column HI (starts counting from row 5), copies the content of cell in column HH at row number found and pastes it in the empty cell in column HI.

The problem is that when I launch the macro again, it keeps overwriting the same cell and I don't know how to make it re-find the last row number again. It seems he stores the variable found the first time... what should I put to make it work?

I basically need that every time I launch the macro, it goes down by one row.

Thank you everyone for helping me with this.

lastrowhv=Cells(Rows.Count, "HI").End(xlUp).Row+1

Finds the next empty row in column HI