VBA копирование диапазона: только значение и цвет (исключая всякое иное форматирование)

Формулировка задачи:

Здравствуйте уважаемые и продвинутые в VBA товарищи!
До сих пор с удовольствием пользовался ресурсами форума как сторонний наблюдатель - без регистрации, так сказать.
Но вот наступил момент, когда найти ответ на свой вопрос не могу, а решать задачу необходимо.
Пожалуйста, подскажите как написать код макроса, который копировал бы определённый диапазон ячеек в одном листе и вставлял скопированные значения в другой лист. При вставке необходимо вставлять только значения (использую Selection.PasteSpecial Paste:=xlPasteValues) и, что оказалось неподъемным -

ТОЛЬКО ЦВЕТ ЯЧЕЕК!

Paste:=xlPasteFormats для меня не подходит, т.к. вставляются все форматы, включая условное форматирование, шрифт и прочее. А нужно - только цвет ячеек! Где-то читал об использовании циклов, но этот вариант также не очень желателен, т.к. диапазонов много (40-50) и значений в каждом диапазоне может быть от 20 до 500 строк.
Очень надеюсь, что есть решение данной проблемы. Не проходите мимо!!!
P.S. Оцениваю свой уровень знания VBA как начинающий, поэтому прошу по возможности комментировать строки кода, чтобы я мог понять их смысл.

Решение задачи: «VBA копирование диапазона: только значение и цвет (исключая всякое иное форматирование)»

textual
                            Листинг программы 
                        
                            Set d = Sheets("БД").Cells(СтрокаЗаголовков + 1, diap).Resize(.count)