Помогите с макросом по форматированию ячеек

[grh1]

Доброго дня, Уважаемые знатоки excel!

Есть таблица, в которой существующий макрос разносит данные из столбца b на скрине по статьям, после чего удаляет
лишние строки.

Вопрос:
подскажите код, чтобы появляющиеся ячейки столбцов а и b ниже существующих, повторяли бы форматирование вышестоящих.

Спасибо.

скрин:



файл-excel (подправить макрос в модуле modTestData, макрос ListLiteCode())

[AlexM12]

По формату.
После строки With .Offset(, 12)
вставьте строки

Range("N13:O13").Copy
.Resize(, 2).PasteSpecial Paste:=xlPasteFormats

Скорее всего этого будет достаточно.

[grh1]

Сообщение от AlexM12

Скорее всего этого будет достаточно.

Наверно не совсем достаточно...
Вот что получилось

[AlexM12]

У меня программа не проходит строку

.RemoveDuplicates 1, xlNo

Но форматирование делается раньше и у меня получается

[grh1]

у меня так же код стоит перед этой строкой

[AlexM12]

да, в этом месте.
Метод RemoveDuplicates появился в Excel 2007, а у меня 2003, поэтому не работает.
Исключив строку .RemoveDuplicates 1, xlNo код обрабатывается до конца.

[grh1]

а может чем-то можно заменить
.RemoveDuplicates 1, xlNo
на аналог?

[AlexM12]

А у вас тоже на этой строке останавливается?
А как было раньше, до вставки двух строк копирования форматов?

[grh1]

Сообщение от AlexM12

А как было раньше, до вставки двух строк копирования форматов?

Прикрепил файл, откройте его и нажмите кнопку "выполнить просчет
по 4-м цифрам кода"

Две Ваши строки кода закомментированы.

[AlexM12]

Что я должен увидеть?

Сообщение от AlexM12

да, в этом месте.
Метод RemoveDuplicates появился в Excel 2007, а у меня 2003, поэтому не работает.
Исключив строку .RemoveDuplicates 1, xlNo код обрабатывается до конца.

А еще у меня нет функции SUMIFS(), поэтому, если пропущу RemoveDuplicates во всех ячейках ошибка ИМЯ