Where did I go Wrong? inserting a 5 star rating in excel VBA

Ok I have no Idea where I have gone wrong here!
Ive got a tool list where I record tools being issued to Artisans, I am trying to add a condition field done with a 5 star rating system. which I have kind of gotten right, but when you click on the desired star to rate the tools condition, it rates the tool 10 rows below it! I cannot find where excel is getting this command from! and its left me very confused and 10 cups of coffee down!

If anyone could spot the mistake I would GREATLY appreciate it!

Thank you very much, I would though prefer it if all stars before the selected star were yellow to, ie. If I click star no.4, stars 1 through to 4 are yellow.

Did you by any chance see where I went wrong in my previous code? just out of interest sakes, you know the whole give the man a fish, or teach him to fish scenario.

Ah, I am beginning to understand!
Thank you very much Andy Pope and AlphaFrog for your inputs!

This is the exact result I was looking for and have slightly extended my VBA knowledge somewhat, (although at present that is a very easy achievement)

Thanks Again