delete in sheet2 if already exist in sheet1

[VBisgreat]

I have a macro in the attached workbook that will find and delete the entire row in sheet2 if it already exists in sheet1. My question is why do I have to click play three times for the code to get rid of all the repeated row? Thanks if you can help!