如果阻塞和块混淆

I had this code working, then tried to add a loop, to work over several sheets, which I failed, so tried to return to the original version, and now i can't get that working either. I have tried just about evere iteration i can see of where to put the with/end with and if/end if but now i am lost. Can anyone see what i have done wrong?I had this code working, then tried to add a lo