Option Explicit
Option Private Module
'====================================================================================================
Sub Test()
Dim rng As Range, cl As Range
Dim x, arr
Dim iMin#, iMax#, iProc#, AC&

Set rng = Range("_rng"): arr = rng.Value2
iMin = 1E+100: iMax = -iMin

For Each x In arr
    If iMin > x Then iMin = x
    If iMax < x Then iMax = x
Next x
iMax = iMax - iMin

Application.ScreenUpdating = False
AC = Application.Calculation: Application.Calculation = xlCalculationManual

[tbl].Interior.ColorIndex = xlNone
For Each cl In rng
    iProc = (cl - iMin) / iMax
    cl.Offset(0, 1).Interior.Color = ColorScale_GYR_Excel(iProc)
    cl.Offset(0, 2).Interior.Color = ColorScale_GYR_MCH(iProc)
    cl.Offset(0, 3).Interior.Color = ColorScale_GYR_MCH(iProc, True)
Next cl

Application.Calculation = AC: Application.ScreenUpdating = True
End Sub
'====================================================================================================
'====================================================================================================
Function ColorScale_GYR_MCH(procRed_0to1#, Optional NoYellow As Boolean, Optional MinColor& = 128, Optional MaxColor& = 255) As Long
Dim R&, G&, B&

If procRed_0to1 > 0.5 Then
    R = MaxColor: G = 2 * (1 - procRed_0to1) * (MaxColor - MinColor) + MinColor
    If NoYellow Then B = G Else B = MinColor
Else
    R = 2 * procRed_0to1 * (MaxColor - MinColor) + MinColor: G = MaxColor
    If NoYellow Then B = R Else B = MinColor
End If
ColorScale_GYR_MCH = RGB(R, G, B)
End Function
'====================================================================================================
Function ColorScale_GYR_Excel(procRed_0to1#) As Long
Static aClr() As Long, fStatic As Boolean

If Not fStatic Then
    fStatic = True: ReDim aClr(0 To 100)
    aClr(0) = 8109667: aClr(1) = 8109670: aClr(2) = 8109929: aClr(3) = 8110188: aClr(4) = 8110447: aClr(5) = 8110706: aClr(6) = 8176501: aClr(7) = 8176760: aClr(8) = 8177019: aClr(9) = 8177279: aClr(10) = 8177538
    aClr(11) = 8177541: aClr(12) = 8243336: aClr(13) = 8243595: aClr(14) = 8243854: aClr(15) = 8244113: aClr(16) = 8244372: aClr(17) = 8310168: aClr(18) = 8310427: aClr(19) = 8310686: aClr(20) = 8310945
    aClr(21) = 8310948: aClr(22) = 8311207: aClr(23) = 8377002: aClr(24) = 8377261: aClr(25) = 8377521: aClr(26) = 8377780: aClr(27) = 8378039: aClr(28) = 8443834: aClr(29) = 8444093: aClr(30) = 8444352
    aClr(31) = 8444355: aClr(32) = 8444614: aClr(33) = 8444873: aClr(34) = 8510669: aClr(35) = 8510928: aClr(36) = 8511187: aClr(37) = 8511446: aClr(38) = 8511705: aClr(39) = 8577500: aClr(40) = 8577759
    aClr(41) = 8577762: aClr(42) = 8578022: aClr(43) = 8578281: aClr(44) = 8578540: aClr(45) = 8644335: aClr(46) = 8644594: aClr(47) = 8644853: aClr(48) = 8645112: aClr(49) = 8645371: aClr(50) = 8711167
    aClr(51) = 8710655: aClr(52) = 8644351: aClr(53) = 8643839: aClr(54) = 8577535: aClr(55) = 8576767: aClr(56) = 8510719: aClr(57) = 8509951: aClr(58) = 8509438: aClr(59) = 8443134: aClr(60) = 8442622
    aClr(61) = 8376318: aClr(62) = 8310014: aClr(63) = 8309502: aClr(64) = 8243198: aClr(65) = 8242429: aClr(66) = 8176381: aClr(67) = 8175613: aClr(68) = 8175101: aClr(69) = 8108797: aClr(70) = 8108285
    aClr(71) = 8041981: aClr(72) = 8041212: aClr(73) = 7975164: aClr(74) = 7908860: aClr(75) = 7908092: aClr(76) = 7842044: aClr(77) = 7841276: aClr(78) = 7775228: aClr(79) = 7774459: aClr(80) = 7708155
    aClr(81) = 7707643: aClr(82) = 7641339: aClr(83) = 7640827: aClr(84) = 7574523: aClr(85) = 7573755: aClr(86) = 7507706: aClr(87) = 7506938: aClr(88) = 7440890: aClr(89) = 7440122: aClr(90) = 7373818
    aClr(91) = 7373306: aClr(92) = 7372538: aClr(93) = 7306489: aClr(94) = 7305721: aClr(95) = 7239673: aClr(96) = 7173369: aClr(97) = 7172601: aClr(98) = 7106553: aClr(99) = 7105785: aClr(100) = 7039480
End If
ColorScale_GYR_Excel = aClr(CLng(procRed_0to1 * 100))
End Function
'====================================================================================================