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

[grh1]

Жалко что Вы еще в 2003...
К кому обратиться за помощью, пока не знаю.
Спасибо что откликнулись.

[Hugo121]

Убрать белые лишние ячейки снизу можно так:
после

            .RemoveDuplicates 1, xlNo

добавить

            Dim r As Range
            Set r = Range(.Cells(.SpecialCells(xlConstants, xlTextValues).Count)(2), .Cells(.Cells.Count))
            r.Offset(, 1).Copy
            r.PasteSpecial Paste:=xlPasteFormats

[grh1]

Ваш код не убрал...

Убрала вставка такого кода:

.Offset(.Cells(.Rows.Count).End(xlU p).Row - 12).Resize(, 2).Clear
.Offset(.Cells(.Rows.Count).End(xlU p).Row - 12).Resize(, 2).Interior.ColorIndex = 15
.Resize(.Cells(.Rows.Count).End(xlU p).Row - 12, 2).Borders.Color = vbBlue
.Cells(1, 1).Select

Правда еще добавлено вверху Dim....... lrowN&

Спасибо за помощь