Не поняла "Юмора"...  
Речь шла - о "Заначке"!!!        

Речь шла о "Заначке от Жены"!!!     ...

Для Wiss!!!

Скрытый текст

Жил-был в советское время молодой инженер. Женился, зарплата 120 рублей, а отдавать надо все деньги жене. Но ведь и пивка попить охота с друзьями, и сигареты... Не просить же по любому поводу у жены?! Придумал он историю себе и объясняет жене: — В армии, понимаешь, я танк разбил, и военкомат вычитает из зарплаты по 20 рублей в месяц. Ну жена, понятное дело, сознательная, долг перед Родиной - прежде всего! Так прошло 10 лет, дети подрастают, расходы растут, жена возмутилась: — Виданое ли дело, 10 лет назад человек в армии ошибся, и столько лет вычитают по 20 рублей. Идем в военкомат, разбираться будем... Мужику страшно сознаваться, что столько лет обманывал семью, решил там на месте что нибудь придумать. Пришли в военкомат, зашли в кабинет, жена возмущенная излагает суть проблемы. Военком был мужик неглупый, выслушал, помолчал и говорит жене: — Подождите за дверью, а мы решим этот вопрос. Жена вышла, военком аж с места вскочил: — Как ты смеешь! У тебя двое детей, а ты у семьи отнимаешь. Я за подводную лодку - по 10 рублей плачу, а ты за танк - по 20. Виданное ли дело? Потом чуть успокоившись: — Как мужик мужика я тебя понимаю. Поэтому сделаем так. Я напишу тебе справку, но только для жены, и теперь будешь «платить» по 10 рублей, хватит тебе - на пиво и сигареты! Так и сделали. Мужик выходит хмурый из кабинета... Жена с нетерпением и надеждой в глазах: — Ну, как?! Мужик раздраженно сует ей под нос справку: — Как, как... Вот так! Полюбуйся на свою работу! Дотрепалась! Еще червонец выписали!!!

Где же Ваш каталог с этими файлами: в формате csv?!  
Каталог давно пора - "прикрепить"!  

Полагаю, в названии этих Листов могут присутствовать ненужные Пробелы: если названия Листов были набраны "врукопашную"!  
Достаточно ли, "отстегивать" в названии Листа: Табл.5?

Уважаемый ussuritiger!
Разумеется: Краткость - сестра таланта!!!
Можно, конечно, работать с пустыми листами в Ваших файлах - A,B,C и D!
Но мой Макрос, непременно, "споткнется" на Реальных файлах...  
Я Ваши макросы, вовсе - не собираюсь подвергать "отладке"!!!  

Вопросы:
1. Копировать в отдельный файл все листы с наименованиями:
   1.1.  A_1,
   1.2.  B_1,
   1.3.  C_1,
   1.4.  D_1.
2. Вы, надеюсь, понимаете, что в новом файле повтор имен Листов - недопустим!
   2.1. Полагаю, Вы не будете составлять длиннющий список - как "обзывать": совпавшие по именам - листы?!
   2.2. Замучаетесь при составлении списка!
   2.3. Тем паче, надо указать, непременно, из какого Исходника "приплыл" Лист!
   2.4. Предлагаю - к названию Листа - "приклепать" короткое название Исходника: символов 10, думаю, вполне Хватит.
   2.5. Полагаю, "отстёгивать" эти символы надо с начала имени Исходника!
3. Думаю, 4-5 файлов-Исходников: вполне достаточно!
   3.1. Прикрепляйте Ваши файлы-Исходники!

Интересно: кому нужен такой "геморройный" алгоритм, связанный с "разукрашками", вместо Нормального Алгоритма?!  

Можно ли ВНЯТНО объяснить Вашу проблему?!  
Нужен Ваш Алгоритм, а не ссылки на проблемы Вашего макроса!

Уважаемый realmen80!

Пока виден Ваш несуразный макрос и какие-то Картинки из-под Вашего файла!  
И где же Ваш файл - пример?
Кстати, правила Форума требуют: файл-пример - это Начало темы!!!

Уважаемый Инсаф!
Можно воспользоваться ситуацией:
1. Запрос Даты - Месяц, Год.
2. Если устраивает Текущая Дата - используйте в конкретной ячейке функцию - СЕГОДНЯ (из категории - Дата и время)!
Полагаю, Ваша Проблема будет решена сразу же!
Главная цель: удачно в Макросе написать функцию - СУММПРОИЗВ!    

Как Вы до этого "Додумались"?!    

Вы предложили ссылку на чужой Макрос!
Я, в данном случае - против Макроса и против Разукрашек!
Предлагаю решение проблемы Smitherson88 - Штатными Средствами EXCEL!
Смотреть Мой файл: Вас никто не Обязывает!!!  

1. Сделать Заголовки для сортировки во всех столбах - см. Лист: "-Foglio1".
2. См. Лист: "Foglio1".
   2.1. Выполнить сортировку в нужном Столбе - по возрастанию (у меня - столб: t_2).
   2.2. Выполнить Штатный Режим: Данные (Промежуточный Итог - см. Картинку на Листе "Foglio1").
   2.3. Далее: можно управлять структурными цифрами - 1~3.
         2.3.1. Цифра 3 - дает общую структуру на Листе "Foglio1".
         2.3.2. Цифра 2 - дает "суммарную" структуру на Листе "Foglio1".
3. Сортировку - выполнять на отдельном листе.
   3.1. Данные (Промежуточный Итог) слева "задействует" дополнительный столб - для вставки количественного результата по одинаковым числам в Вашей Таблице.
   3.1.1. По-моему, в Любой версии EXCEL - это одинаково строится!
4. По-моему, это - всяко лучше, чем "связываться" с Макросами или Разукрашками!

Доказательства?...
Сначала посмотрите Мой Файл...

Весьма интересно!
А вдруг у Юзеров, обычных, природная Катаракта?!  
Есть в EXCEL - тривиальный вариант: количественный подсчет одинаковых чисел!
И еще, что очень важно: не надо иметь дело с Макросами!
Все делается Штатными Средствами EXCEL!

Однако, странно - Вы о каком-то коде автоматизации "печётесь"...
А файла: не было / нет / не будет?!  

Это - о ЧЁМ?

Это - Тривиально!    

Вы каждый Месяц добавляете в файл - Лист-Начало и Лист-Конец?!    

Мне всегда - интересно, кому нужен такой: "заумный" Алгоритм?!  
В придачу - с Макросом!!!
У Вас тривиальнейшие формулы Консолидации однотипных таблиц на листах!
Листы - Скрывать / Отображать: Сколько Геморроя!  
Короче, "Без бутылки" - не разобраться!    

А "Здря"...  
     

Это, не так уж - плохо!
Просто, если формула останется после Вас - для простого Юзера...
Он ее никогда - не поймет...
И Вас будет вспоминать - "не добрым" словом!    

Tefra!
Формула, конечно, Витиеватая...
Но - отражает, ОДНОЗНАЧНО, желание grt22 про Фамилию - СИДОРОВ!!!    

Наверное, нужна иная формула...
Я в Формулах - "Не копенгаген"!    
Aleksey1107!
Подключайтесь, пожалуйста, чтобы помочь grt22 в решении его Проблемы!    

Надо считать с Уникальной Фамилией?