Выделение ячеек цветом при помощи VBA

[resembe]

Добрый день!
Подскажите, пожалуйста,
как в редакторе VBA прописать задачу:
последовательное выделение ячеек 3 цветами по заданному столбцу
Например, 5 ячеек красного цвета, 5 ячеек желтого цвета, 5 ячеек зелного цвета. И далее цикл повторяется: кр-ж-зел, до тех пор,т пока в ячейках есть значения.
Спасибо

[IgorGO]

Sub Светофор()
  Dim i As Long,  r As Long, c As Long
  c = 18: r = 2
  For i = 0 To Int((Cells(Rows.Count, c).End(xlUp).Row + 1 - r) / 9)
    Cells(r + i * 9, c).Resize(3, 1).Interior.Color = RGB(255, 0, 0)
    Cells(r + 3 + i * 9, c).Resize(3, 1).Interior.Color = RGB(255, 255, 0)
    Cells(r + 6 + i * 9, c).Resize(3, 1).Interior.Color = RGB(0, 255, 0)
  Next
End Sub

c - колонка
r - начальная строка

[resembe]

Спасибо большое!
А если уловие добавить, закрашивать до тех пор, пока есть данные (до пустой ячейки)

[kalbasiatka]

Вариант 2

Sub Светофор_2()
    Dim i&, x As Double
    a = Array(vbRed, vbYellow, vbGreen)
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 1).Interior.Color = a(x)
        x = x + 1: If x > 2 Then x = 0
    Next
End Sub

[IgorGO]

Sub Светофор()
  Dim i As Long, r As Long, c As Long, a
  c = 18: r = 2: a = Array(vbRed, vbYellow, vbGreen)
  For i = r To Cells(Rows.Count, c).End(xlUp).Row
    Cells(i, c).Interior.Color = a(Int(((i - r) Mod 9) / 3))
  Next
End Sub