Option Explicit
' Общие данные
Dim j, i, y, NumRow, NumCol, iRow, iCol, NumRowCPP As Integer
' СРР
Dim StrCPP As Long
Dim Namebook1, Namebook2, FilesToOpen As String ' окно открытия файлов и название книг
Dim StrKanal, StrKanal2, StrMonth, StrCPPMonth, StrCPPKanal, StrCPPGorod As String


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    ' ////////////////// ЗАНЕСТИ CPP  \\\\\\\\\\\\\\\\\\\\\\\\\

If Not Intersect(Target, Cells(12, 8)) Is Nothing Then
Cancel = True
Dim wb_1 As Excel.Workbook, wb_2 As Excel.Workbook

FilesToOpen = Application.GetOpenFilename _
        (FileFilter:="Книга Excel (*.xls*), *.xls*", MultiSelect:=False, Title:="Выбрать текстовые или Excel файлы")
 
    If VarType(FilesToOpen) = vbBoolean Then
        'была нажата кнопка отмены - выход из процедуры
        Exit Sub
    End If

Set wb_1 = ActiveWorkbook ' Основная книга
Set wb_2 = Workbooks.Open(FilesToOpen) ' Вторая книга

Namebook1 = wb_1.Name ' имя основной книги.
Namebook2 = wb_2.Name ' Имя сырьевой книги.

'For NumberCol = 1 To 69
'    wb_2.Worksheets(1).Cells(8, NumberCol).Value = NumberCol
'Next

NumRowCPP = 15
While wb_2.Worksheets(1).Cells(NumRowCPP, 1).Value <> ""
    For j = 0 To 11
        'MsgBox wb_2.Worksheets(1).Cells(NumRowCPP, 1).Value
        If wb_2.Worksheets(1).Cells(NumRowCPP, j + 58).Value <> 0 Then
            StrCPP = wb_2.Worksheets(1).Cells(NumRowCPP, j + 58).Value  'присваиваем числовое значение CPP).
            MsgBox StrCPP
            StrCPPKanal = wb_2.Worksheets(1).Cells(NumRowCPP, 3).Value 'присваиваем текстовое значение Канала).
            MsgBox StrCPPKanal
            StrCPPGorod = wb_2.Worksheets(1).Cells(NumRowCPP, 1).Value
            MsgBox StrCPPGorod
            StrCPPMonth = wb_2.Worksheets(1).Cells(10, j + 58).Value 'присваиваем числовое значение Месяц).
            MsgBox StrCPPMonth
            SearchCPP (Namebook1), (StrCPP), (StrCPPGorod), (StrCPPKanal), (StrCPPMonth)
        End If
    Next
NumRowCPP = NumRowCPP + 1
Wend
'wb_2.Close
'SearchCPP ' функция заполнения CPP

End If

End Sub

Option Explicit
Dim NumGorod, NumGorod2, NumMount As Variant

Function SearchCPP(Namebook1, StrCPP, StrCPPKanal, StrCPPGorod, StrCPPMonth)

' Узнаем сколько строк с городами
NumGorod = 17 ' самый первый городо в МП
NumGorod2 = 0 ' Посчитаем сколько раз дублиуется искомый город

For NumMount = 0 To 213 Step 18 ' Цикл по месяцам
    MsgBox Namebook1.Worksheets(1).Cells(14, NumMount + 10).Value
    If Namebook1.Worksheets(1).Cells(14, NumMount + 10).Value = StrCPPMonth Then ' Находим месяц
        MsgBox Namebook1.Worksheets(1).Cells(14, NumMount + 10).Value
        Do While Namebook1.Worksheets(1).Cells(NumGorod, 2).Value = StrCPPGorod ' Цикл по городам
            MsgBox Namebook1.Worksheets(1).Cells(NumGorod, 2).Value
            
            While Namebook1.Worksheets(1).Cells(NumGorod + NumGorod2, 2).Value = StrCPPGorod
                NumGorod2 = NumGorod2 + 1
            Wend
            
            For NumGorod = 0 To NumGorod2 + NumGorod
                If Namebook1.Worksheets(1).Cells(NumGorod, 4).Value = StrCPPKanal Then ' Находим канал
                    MsgBox Namebook1.Worksheets(1).Cells(NumGorod, 4).Value
                      
                    'SearchCPP (StrCPP), (StrCPPGorod), (StrCPPKanal), (StrCPPMonth)
                    
                    'MsgBox StrCPP & " " & StrCPPKanal & " " & StrCPPGorod & " " & StrCPPMonth
                    Namebook1.Worksheets(1).Cells(NumGorod, NumMount + 10).Select
                    MsgBox Namebook1.Worksheets(1).Cells(NumGorod, NumMount + 10).Value
                    'wb_1.Worksheets(1).Cells(12, 24).Value = StrCPP
                End If
            Next
        If NumGorod > 300 Then
            MsgBox "Город не найден"
            Exit Do
        End If
        NumGorod = NumGorod + 1
        Loop
    End If
Next NumMount
 

End Function