Проверка, находятся ли значения в столбце выше среднего

Question

У меня есть столбец с данными о продажах за каждый период, например:

PERIOD         STORE 1
W 2016 16   49,45
W 2016 17   51,02
W 2016 18   51,22

Каждый столбец представляет магазин, и я должен вручную проверить более 200 столбцов на наличие аномалий.

Я написал код для проверки среднего значения для каждого столбца, а затем выделил значения, которые намного выше / ниже среднего, но не очень хорошо работали ...

Sub Macro1()
'
' Macro1 Macro
'

'
Dim c As Range, fc As ColorScale

For Each c In Range("A1:CD1").Cells

    Set fc = c.EntireColumn.FormatConditions.AddColorScale( _
                                               ColorScaleType:=3)
    fc.SetFirstPriority
    fc.ColorScaleCriteria(1).Type = xlConditionValueLowestValue
    With fc.ColorScaleCriteria(1).FormatColor
        .Color = 255
        .TintAndShade = 0
    End With
    fc.ColorScaleCriteria(2).Type = xlConditionValuePercentile
    fc.ColorScaleCriteria(2).Value = 50
    With fc.ColorScaleCriteria(2).FormatColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    fc.ColorScaleCriteria(3).Type = xlConditionValueHighestValue
    With fc.ColorScaleCriteria(3).FormatColor
        .Color = 255
        .TintAndShade = 0
    End With

Next c
End Sub

Я хотел бы иметь что-то, что просто рассчитало бы среднее значение для каждого столбца, а затем выделило красным цветом значения, скажем, на 15% выше / ниже, чем самое высокое / самое низкое значение для каждого столбца, потому что это ' Вероятно, будет ошибка с моей БД.

Кто-нибудь знает, как это сделать?

Заранее спасибо:)