Sub Цветовые_шкалы()
Dim t As String
Dim c As Long
Dim ran As Range
Dim ra As Range
Dim col1()
Dim col2()
Dim col3()

col1 = Array(7039480, 8109667, 7039480, 8109667, 7039480, 8109667, 10285055, 7039480, 8109667, 7039480, 16776444, 13011546)
col2 = Array(8711167, 8711167, 16776444, 16776444, 16776444, 10285055, 8109667, 16776444, 16776444, 16776444, 7039480, 16776444)
col3 = Array(8109667, 7039480, 8109667, 7039480, 13011546, 0, 0, 0, 0, 0, 0, 7039480)
Set ran = Selection
t = InputBox("1 = построчно" & vbCr & "2 = по столбцам" & vbCr & "3= весь диапазон", "применить для", 1)
If t = "" Then Exit Sub
c = InputBox("Вариант расцветки", , 0)
If t = "3" Then Call цветШкала(ran, col1(c) * 1, col2(c) * 1, col3(c) * 1): Exit Sub
If t = "1" Then
    For Each ra In ran.Rows
    Call цветШкала(ra, col1(c) * 1, col2(c) * 1, col3(c) * 1)
    Next
    Exit Sub
End If
If t = "2" Then
    For Each ra In ran.Columns
    Call цветШкала(ra, col1(c) * 1, col2(c) * 1, col3(c) * 1)
    Next
    Exit Sub
End If
End Sub

Private Sub цветШкала(r As Range, col1#, col2#, col3#)
With r
    .FormatConditions.AddColorScale ColorScaleType:=3
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1)
        .ColorScaleCriteria(1).Type = xlConditionValueLowestValue
        .ColorScaleCriteria(1).FormatColor.Color = col1

        .ColorScaleCriteria(2).Type = xlConditionValuePercentile
        .ColorScaleCriteria(2).Value = 50
        .ColorScaleCriteria(2).FormatColor.Color = col2
        
        If col3 > 0 Then .ColorScaleCriteria(3).Type = xlConditionValueHighestValue: .ColorScaleCriteria(3).FormatColor.Color = col3
    End With
End With
End Sub