Hi

The problem you are having with my code is that you need to change
LastRow = [A65535].End(xlUp).Row to find the last value in your
choosen column which is J which would be LastRow =
[J65535].End(xlUp).Row. That said Ivan is right working your way down
and deleting rows can cause problems so i would suggest going with his
loop for the removal of the rows. I should have thought of that one
D'oh!!!! Thanks for the heads up and i hope you got sorted out.

Steve