Actually, now that I think about it, I may not need the unique count.
Let me try this on for size and see if it fits. (Thank goodness our [Site] and [Year] are at the very least numeric):
Dim Y As Integer, MaxY As Integer, S As Byte, MaxS as Byte
Y = Min([Year]) 'Establishes the First Year on...