Try this

Cell.EntireRow.Delete

instead of this:

ActiveCell.EntireRow.Select
Selection.Delete

Regards