Just add the line below after the row has been moved/paste:
Rows(i).EntireRow.Delete shift:=xlUp