Диапазон внутри закрашеных ячеек

[arbitr.ru]

xl 2010
Вообщем задача такова, нужно чтобы скрипт удалял все данные между закрашенных строк, таких строк может быть до 50, потом фильтровал допустим по банку (колонка Е) например банк1 и банк2 + желательно уже в отфильтрованных банках сортировал номера в столбце B

[nilem]

Например

Sub ertert()
On Error Resume Next
With Range("A7").CurrentRegion
    .AutoFilter 1, "<>"
    With ActiveSheet.AutoFilter.Range.Columns(1)
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(12).EntireRow.Delete
    End With
    .AutoFilter
    .Sort Key1:=.Cells(1, 5), Order1:=xlAscending, _
          Key2:=.Cells(1, 2), Order2:=xlAscending, Header:=xlYes, MatchCase:=False
End With
End Sub

[Казанский]

Удобнее ориентироваться не на цвет, а на наличие данных в ст. А:

Sub Макрос1()
Columns("A").SpecialCells(xlCellTypeConstants, 23).EntireRow.Delete
Range("E7").Sort [E7], xlAscending, [B7], , xlAscending, Header:=xlYes
End Sub

[arbitr.ru]

Спасибо ребят что ответили, но это не совсем то что нужно.
Извиняюсь что вопрос был поставлен не очень корректно, просто очень спешил когда создавал тему.
Приведенные примеры удаляют строки не закрашенные, а нужно:
удалить данные из ячеек в колонке "C" в не закрашенных строках
применить фильтр ("Е7") по: банк1+банк2 и в уже отфильтрованных, отсортировать номера в колонке "В" от минимального к максимальному (но в диапазоне между закрашенных строк) т.е. не тупо выделить весь столб ("B9:B131") и применить сортировку, а сортировать диапазон например для "м-т №20" диапазон сортировки - B9:E17(применить сортировку от мин->макс).
диапазон сортировки должен захватывать столбец "Е" т.к. номера в столбе "В" должны меняться вместе с названием банка

[arbitr.ru]

Неужели никак?
Хотя бы подскажите как отсортировать ячейки в колонке "B" не затрагивая цветную строку, пробовал "настраиваемую" сортировку, что бы он не сортировал цветную ячейку, ничего не получилось =/
Может как нибудь можно отсортировать только те ячейки в колонке "B" у которых формат "общий", т.к. там где закрашенные всегда будет "текстовый" формат?
Я тоже новичок в VBA и тоже учусь на примерах с форума, и хелпе
Пока только вот что получилось

Sub test_ПТС()
'прячем шапку
    Rows("1:6").Select
    Range("A6").Activate
    Selection.EntireRow.Hidden = True
'умещаем все на 1 лист
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
'========================================================================
'Фильтр не банк3
ActiveSheet.Range("$A$7:$E$141").AutoFilter Field:=5, Criteria1:="<>банк3", Operator:=xlAnd

'печать НЕ БАНК3
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
'=========================================================
'фильтр НЕ БАНК1, НЕ БАНК2
ActiveSheet.Range("$A$7:$E$141").AutoFilter Field:=5, Criteria1:="<>банк1", Operator:=xlAnd, Criteria2:="<>банк2", Operator:=xlAnd
   ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.ShowAllData
'=========================================================
'Фильтр ТОЛЬКО БАНК4
ActiveSheet.Range("$A$7:$E$142").AutoFilter Field:=5, Criteria1:="=банк4", _
        Operator:=xlOr, Criteria2:="="
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Отсортировать бы номера в колонке "В" внутри не закрашенных ячеек перед печатью... Помогите кто чем может =)