Макрос для Excel 2017 - VBA

Sub Fill_Color(Rg As Range)  ' на вход процедуре подается параметр - диапазон ячеек
Dim cel As Range                ' рабочая переменная (которая будет пробегать по диапазону)
      For Each cel In Rg        ' цикл по всем ячейкам диапазона (у ячейки тип - тоже Range)
           v = cel.Value          ' берем значение очередной ячейки
           If IsEmpty(v) Then                    ' если ячейка пуста -
              cel.Interior.Color = QBColor(15) ' заливаем белым (код 0) [url]http://www.excelworld.ru/stuff/vba_function/color/qbcolor/25-1-0-104[/url]
           ElseIf v = 0 Then             ' если в ячейке число - 0
              cel.Interior.Color = QBColor(8) ' заливаем серым (код 8)
           ElseIf v = 1 Then             ' если в ячейке число - 1
              cel.Interior.Color = QBColor(12) ' заливаем красным (код 12)
           ElseIf v = 2 Then             ' если в ячейке число - 2
              cel.Interior.Color = QBColor(14) ' заливаем желтым (код 14)
           ElseIf v = 3 Then             ' если в ячейке число - 3
              cel.Interior.Color = QBColor(10) ' заливаем зеленым (код 10)
           Else                                       ' иначе
              cel.Interior.Color = QBColor(15) ' заливаем белым (код 15)
           End If
      Next
End Sub

Sub Start()
 
    Fill_Color Range("R2C2:R32C25")
 
End Sub