failed loop code

I have a macro in the attached file where I am taking selected data from the first 2 tabs and arranging it in the 3rd tab. I need another set of eyes to see why it doesn't loop thru all the rows on the first 2 tabs. It only makes it thru 1 or 2 loops. I have used this method before and it has always work just fine. the source tabs (first 2 tabs) need to remain as they are, no reformatting etc.

thanks in advance, s4