Option Explicit

Sub myWay()
Dim rngDate As Range 'Диапазон дат
Dim rngHeader As Range 'Диапазон заголовков
Dim c As Range 'Временная переменная для циклов
Dim sFirstMonth As String 'Первый месяц
Dim sLastMonth As String  'Последний месяц
Dim sColName As String    'Какой столбец считаем
Dim iFirstRow As Long     'Первый ряд с данными
Dim iResColumn As Long    'Столбец с результатом
Dim iFirstCol As Long     'Первый столбец нужного диапазона (вычисляеется)
Dim iLastCol As Long      'Последний столбец нужного диапазона (вычисляеется)
Dim arrCol() As Long      'Перечень колонок, которые нужно суммировать
Dim i As Long
Dim j As Long
Dim iTmp As Double          'Для подсчёта результата

'Ввод первичных переменных
    Set rngDate = Range("O2:AL2")
    Set rngHeader = Range("O3:AL3")
    sFirstMonth = "Май 2017"
    sLastMonth = "Июнь 2017"
    sColName = "Реализация"
    iResColumn = Range("AO1").Column 'Лениво считать номер столбца АО
    iFirstRow = 5
    
'Сама программа
'Ищем диапазон дат
    For Each c In rngDate
        If iFirstCol = 0 Then
            If c.Value = sFirstMonth Then iFirstCol = c.Column
        Else
            If iLastCol = 0 Then
                If c.Value = sLastMonth Then iLastCol = c.Column
            Else
                If c.Value <> "" Then
                    iLastCol = c.Column - 1
                    Exit For
                End If
            End If
        End If
        If iLastCol <> 0 Then iLastCol = rngDate.Column + rngDate.Columns.Count - 1 'На случай, если у нас выбран последний  месяц из диапазона
    Next c
    
    If iFirstCol = 0 Or iLastCol = 0 Then
        MsgBox "Не найден первый или последний месяц"
    End If

'Ищем колонки, которые нужно суммировать
    ReDim arrCol(0 To 0)
    For Each c In Intersect(rngHeader, Range(Cells(rngHeader.Row, iFirstCol), Cells(rngHeader.Row, iLastCol)))
        If c.Value = sColName Then
            If arrCol(0) <> 0 Then i = 1 'чтобы первую строчку обработать правильно (массив не менять)
            ReDim Preserve arrCol(0 To UBound(arrCol) + i)
            arrCol(UBound(arrCol)) = c.Column
        End If
    Next c
    
    If arrCol(0) = 0 Then
        MsgBox "Не найдены столбцы для суммирования"
    End If
    
'Cкладываем, наконец
    i = iFirstRow
    Do While Cells(i, 1).Value <> ""
        iTmp = 0
        For j = 0 To UBound(arrCol)
            iTmp = iTmp + Cells(i, arrCol(j)).Value
        Next j
        Cells(i, iResColumn).Value = iTmp
        i = i + 1
    Loop
End Sub

    i = iFirstRow
    Do While Cells(i, 1).Value <> ""
        Cells(i, iResColumn).Value = WorksheetFunction.SumIf(Range(Cells(iRowHeader, iFirstCol), Cells(iRowHeader, iLastCol)), sColName, Range(Cells(i, iFirstCol), Cells(i, iLastCol)))
        i = i + 1
    Loop

    i = 5
    Do While Cells(i, 1).Value <> ""
        Cells(i, iResColumn).FormulaR1C1 = "=ROUND(SUMIF(INDEX(R3C15:R3C39,MATCH(R1C41,R2C15:R2C39,)):INDEX(R3C15:R3C39,MATCH(R1C39,R2C15:R2C39,)),""Реализация"",INDEX(RC[-24]:RC,MATCH(R1C41,R2C15:R2C39,)):INDEX(RC[-24]:RC,MATCH(R1C39,R2C15:R2C39,))),2)"
        Cells(i, iResColumn).Value = Cells(i, iResColumn).Value
        i = i + 1
    Loop