or
Sub data2()
Range("H3", Cells(Rows.Count, "H").End(xlUp)).SpecialCells(2).Copy Range("A3")
End Sub