Немного другой подход. Автоматически все делает, без ручных телодвижений.
В Лист2 столбец Q формула массива (вводится одновременным нажатием Контрл Шифт Ентер), тянем ее вниз (формулу явно можно укоротить, написал особо не раздумывая)
Код
=ЕСЛИ(И(МУМНОЖ(--(C2:P2<>C$1:P1);СТРОКА($1:$14)^0));МАКС(Q$1:Q1)+1;ИНДЕКС(Q$1:Q1;ПОИСКПОЗ(;МУМНОЖ(--(C2:P2<>C$1:P1);СТРОКА($1:$14)^0);)))
и формат ячеек
тип0
В лист1 в столбце А пишем 1,2,3,... с аналогичным форматом и в В2 формула, которую тянем вправо-вниз
Код
=ЕСЛИОШИБКА(ИНДЕКС(list2!C$2:C$99;ПОИСКПОЗ($A2;list2!$Q$2:$Q$99;));"")