Перенос данных с разных листов на сводный лист с учетом диапазона дат

[onsh]

Добрый день всем! 

Никак не получается разобраться с написанием макроса для переноса (кончолидации) данных. Не очень я специалист в VBA, а макрос, мне кажется, не очень сложный...

Задача такая:
перенести данные с отдельных листов ("Фирма1", "Фирма2",...) в соответстующие столбцы листа "Свод" с учетом диапазона дат - начиная с выбранной пользователем даты и до последней заполненной ячейки на отдельных листах ("Фирма1", "Фирма2",...).

Помогите, пожалуйста, один макрос написать. Или подскажите, какие использовать команды/процедуры:
"выбор диапазона дат", "проверка: если дата в диапазоне, то копирование из столбцов на лист "Свод"

Файл со структурой/данными прилагаю.

Заранее спасибо.

[nilem]

Вариант с зеленой стрелкой

[onsh]

Вариант с зеленой стрелкой

Большое спасибо! Всё работает как надо.

Но в случае, если в файле есть другие листы, макрос не работает. Дабавляю в файл пустой лист и макрос не может понять, что копировать.
Как бы это поправить? Чтобы данные брались с определенных листов, а "ненужные" листы игнорировались?

Т.е. названия фирм совпадают с названиями листов, но в книге есть другие листы, с которых данные копировать не надо.

[nilem]

Тогда, например, так. Делаем двойной клик по ячейке с нужной фирмой в розовом диапазоне.