Help with protecting only certain cells based on a cells contents

Hi All

I am hoping that some one will be able to solve a problem i have with the attached file. Once a column has 8 entries between row 9 and 28 i want to protect all the cells to stop anymore being entered. this works but after a number of the columns between B and BK cells which should not be protected become protected?!

Any help/advice would be appriciated.

(Also any help on making the vba code more streamlined would also be appriciated!!)