Macro partially working

Hello,

In the attached workbook, I have two macros. The first macro (More than), should highlight cells under the condition that the sum of a range in column B is greater than the average in range column C. The bounds of the range is determined by unique items found in column A.
It should do this for each unique item in column A (cells in bold should highlight. For some reason, only A9:A15 are highlighting.

In my second macro (Less Than), the opposite condition happens. For this macro, it should highlight cells A21:A22, but it is also highlighting A9.

Any thoughts?

The .NET Framework version 3.5 is required for this solution. There may be a different version on your computer, but 3.5 is required. Additionally, install version 3.5 and enjoy the possibility of using ArrayList.

Artik