Try
Code:
Cells(Rows.Count, "H").End(xlUp).Row
instead