End if and While End Loops

I am trying to do a number of if then loops whilst inside a while wend loop. I am getting the error . Compile error WEND without While. I have these but obvisouly in my loops it is not rght. I have attached the sheet so you can see what it is doing.

Thanks for your help