Закрасить цветом ячейки до конца строки

[Randy.Mandy]

Доброго времени суток, господа программисты!
Скажите, пожалуйста, как закрасить ячейки начиная со 2-ой строки в 2-ух столбцах(2 и 3-ем, например) белым цветом до конца строк в столбце?
первый столбец является ориентиром конца строк.
Файл с попыткой реализации приложил.


Спасибо.

[Randy.Mandy]

Вроде бы получилось самому)
Вот, если кого-то заинтересует)
Может, кому-то пригодится когда-нибудь.

 Sub Color()
row_end = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
For i = 2 To row_end
Cells(i, 2).Interior.ColorIndex = 2
Next
End Sub

[Hugo121]

Так будет побыстрее (если закрашиваемых ячеек не одна, конечно):

Sub Color()
Range("b2:b" & Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row).Interior.ColorIndex = 2
End Sub