Заливка - как контроль просуммированных строк

[ZLOdeev]

Здравствуйте!
Есть код, который ищет значение согласно заданным критериям поиска

For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
If Cells(i, "C") = 1 Then
Select Case Cells(i, "B")
Case 2010000 To 2010999: R14w1 = R14w1 + Cells(i, "F")
Case 2017000 To 2017999: R14w1 = R14w1 + Cells(i, "F")


Я пропустил где-то одну цифру и теперь не могу найти свою ошибку, так как данных много, не могу отследит, что именно просуммировал макрос.

Можно ли сделать так, чтоб выбранную строку (желательно) / ячейку (если меньше изменений будет в коде) можно было залить заливкой?
Можно ли чтоб код менялся только в конце?
Типа:
Case 2010000 To 2010999: R14w1 = R14w1 + Cells(i, "F") .серый
Case 2017000 To 2017999: R14w1 = R14w1 + Cells(i, "F") .красный

[EducatedFool]

Во-первых, не совсем понятна строка

.Range([B5], Cells(Cells(Rows.Count, "C").End(xlUp).Row, "B")).ClearContents

Скорее всего, надо очищать столбец С (с числами), поэтому указанную строку я исправил на

.Range("c5:c" & .Cells(.Rows.Count, "b").End(xlUp).Row).ClearConten ts
.Range("c5:c" & .Cells(.Rows.Count, "b").End(xlUp).Row).Interior.Co lor = vbWhite

Цвет ячейки можно изменить, например, так:

Cells(i, "F").Interior.Color = vbMagenta
где vbMagenta - одна из констант VBA.ColorConstants

Или так:

[a1].interior.colorindex=3

где значение свойства colorindex находится в пределах от 0 до 56

См. вложение:

[ZLOdeev]

Все супер и в ярких красках

Range("f1:f" & Cells(ActiveSheet.Rows.Count, "f").End(xlUp).Row).Interior.ColorI ndex = 0

Без этого не обойтись!!!

Спасибо.