Остричь под лысого! Хотя нет, пусть остаётся как есть, красавицей
В Excel полно формул и можно было всё и без макроса нарисовать, как например в ячейке "В3" - поиск в столбце первого совпадения и возврат значения из найденой строки в указаном столбце.
Макрос для разнообразия,что можно и так
А написал его просто: кликнул "Начать запись", выбрал одну книгу, другую (чтобы потом не набирать ручками), "Остановить запись" получился пустой макрос, в котором и написал цикл перебора всех ячеек с условием по совпадению извлечь нужное.
Правда записывал в колонку "G" не "1", а прибавлял к ячейке эту "1"