I want to make this code smaller and faster
Thanks you for your help in this in advance.
Sub MoveData()
Dim r1, r2
' Determine that last row in the PO Sheet (r1)
Sheets("PO").Select
r1 = Range("A65536").End(xlUp).Row
Dim count As Long
For count = 2 To r1
If Range("H" & count).Value = 0...