Rick, my bad about the "H" vs "A" columns. Didn't pay attention.

For the problem above, it has to be the End(xlUp) method

So it should be
Code:
Range("H2:H" & Cells(Rows.Count, "A").End(xlUp).Row)