VB Script to replace Conditional formating

I have a sheet that has 3 rows and 20 columns grouped in blocks of 9
(the attached sheet will describe morein detail)

This is a Drag Racing Team Points and Ranking sheet (large portions were removed because of size limitations)

Group 1 is Best ET and it has 3 rows Best ET1, 2 and 3. there are 3 columns for Visit 1, same for Visit 2, 3, 4 and 5
I am trying to make a VB Script to only allow 1 selection per group, forinstance if I enter a 1 in row 1 column 2 the (Best ET 1) will highlight and then Lock all blank cells in Visit 1 column, and the entire Best ET 1 Row through visit 5. This says that you used up your
first Best ET points (you are allowed a total of 3 for the season)

this is repeted for Group 2 (Best 60ft), Group 3 (Best light)

Any Ideas on how to make this?