Запуск процедуры при изменении данных в диапазоне ячеек( трансляция данных через DDE сервер)

Sub Pavel()
        Dim Month As Variant 'Переменная месяца торгуемого инструмента
        Month = ThisWorkbook.Sheets("Настройки").Cells(2, 9) 'Присваевеам значение переменной месяца торгуемого инструмента
        Dim Year As Variant 'Переменная года торгуемого инструмента
        Year = ThisWorkbook.Sheets("Настройки").Cells(2, 11) 'Присваевеам значение переменной года торгуемого инструмента
        Dim TestTable1 As Variant 'Спецификация месяца
        TestTable1 = ThisWorkbook.Sheets("Настройки").[M2:N13]
        Dim TestTable2 As Variant 'Инструменты
        TestTable2 = ThisWorkbook.Sheets("Настройки").[H5:H42]
        Dim TestTable3 As Variant 'Таблица обязательных параметров для ввода
        TestTable3 = ThisWorkbook.Sheets("Настройки").[G5:K42]
        Dim TestTable4 As Variant 'Таблица Данные транслируемые из платформы Quik
        TestTable4 = ThisWorkbook.Sheets("Настройки").[Q1:V59]
        Dim TestTable5 As Variant 'Таблица Рисков
        TestTable5 = ThisWorkbook.Sheets("Лист1").[A1:P42]
    For i = 1 To 12
        Select Case Month 'Торгуемый месяц
            Case Is = TestTable1(i, 1) 'Равен ли торгуемый месяц коду месяца в спецификациях?
                For j = 1 To 38
                    TestTable3(j, 3) = TestTable1(i, 2) 'Если равент, тогда присваеваем код месяца
                    x = Year 'Торгуемый год
                    TestTable3(j, 4) = CInt(Right(x, 1)) ' Вставляем код года
                    TestTable3(j, 5) = TestTable3(j, 2) & TestTable3(j, 3) & TestTable3(j, 4) 'Склеиваем данные по инструменту
                    ThisWorkbook.Sheets("Настройки").Cells(j + 4, 9) = TestTable3(j, 3) 'Вставляем месяц
                    ThisWorkbook.Sheets("Настройки").Cells(j + 4, 10) = TestTable3(j, 4) 'Вставляем год
                    ThisWorkbook.Sheets("Настройки").Cells(j + 4, 11) = TestTable3(j, 5) 'Вставляем склеянные данные
                    For k = 3 To 58
                        Select Case TestTable3(j, 5)
                        Case Is = TestTable4(k, 1)
                            For f = 1 To 1
                            TestTable5(j + 4, 2) = TestTable3(j, 2)
                            TestTable5(j + 4, 3) = TestTable3(j, 5)
                            TestTable5(j + 4, 4) = TestTable4(k, 2)
                            TestTable5(j + 4, 5) = TestTable4(k, 3)
                            TestTable5(j + 4, 6) = TestTable4(k, 4)
                            TestTable5(j + 4, 7) = TestTable4(k, 5)
                            TestTable5(j + 4, 8) = TestTable4(k, 6)
                            ThisWorkbook.Sheets("Лист1").Cells(j + 4, 2) = TestTable5(j + 4, 2)
                            ThisWorkbook.Sheets("Лист1").Cells(j + 4, 3) = TestTable5(j + 4, 3)
                            ThisWorkbook.Sheets("Лист1").Cells(j + 4, 4) = TestTable5(j + 4, 4)
                            ThisWorkbook.Sheets("Лист1").Cells(j + 4, 5) = TestTable5(j + 4, 5)
                            ThisWorkbook.Sheets("Лист1").Cells(j + 4, 6) = TestTable5(j + 4, 6)
                            ThisWorkbook.Sheets("Лист1").Cells(j + 4, 7) = TestTable5(j + 4, 7)
                            ThisWorkbook.Sheets("Лист1").Cells(j + 4, 8) = TestTable5(j + 4, 8)
                            Next
                        End Select
                    Next
                Next
            End Select
        Next
End Sub

Private Sub Worksheet_Calculate()
  On Error Resume Next
  Application.EnableEvents = False
  Pavel
  Application.EnableEvents = True
End Sub