Sub Пеняй_на_пени()
    a = Range("AH2:AI29") 'собираем в массив дату и ключевую ставку
       For i = 2 To Cells(Rows.Count, 7).End(xlUp).Row 'перебираем все значения по столбцу "ДАТА оплаты"
       
            For n = 1 To UBound(a) 'перебираем с первого по последний элемент массива
                If Cells(i, 7) < a(n, 1) And Cells(i + 1, 7) > a(n, 1) Then 'если дата ключевой ставки больше первой даты оплаты и одновременно меньше второй даты оплаты
                    'Вставляем строку ниже
                    Rows(i + 1).Insert 
                    Cells(i + 1, 7) = a(n, 1) 'вносим дату ключевой ставки в ячейку
                    Cells(i + 1, 1) = "Смена ключевой ставки" 'ставим соответствующую надпись
                    Cells(i + 1, 8) = "=RC[-1]-R[-1]C[-1]" 'вставляем формулу подсчета дней
                    Cells(i + 1, 9) = a(n, 2) 'вносим в дополнительный столбец саму ключевую ставку
                Else
                    Cells(i + 1, 8) = "=RC[-1]-R[-1]C[-1]" 'иначе, вставляем формулу подсчета дней
                   ' Необходимо так же подтянуть ключевую ставку ближайшую 
                 
                End If
            Next n
       Next i
End Sub

Строка кода №10: arr = Range("A3:A18").Value2
Строка кода №19: arr = Range("C3:C30").Value2

arr = Range("G3:G586").Value2

[Дата] - #"Добавлен индекс"[Дата]{[Индекс]-1}

Sub Пеняй_на_пени()
    a = Worksheets("Лист1").Range("A2:B29") 'диапазон ключевой ставки
    Lastrow = Cells(Rows.Count, 7).End(xlUp).Row
       For i = 2 To Lastrow 'перебираем все строки до последней заполненной
            n = 0
       'If i = 585 Then Stop
       Debug.Print i
'================================================================================================================================================================================================
            'Цикл до выполнения условия
            Do
              n = n + 1
              If n > UBound(a) Then 'если номер элемента не больше чем элементов в массиве
              n = 1
              Exit Do
              End If
            Loop Until Cells(i, 7) < a(n, 1) And Cells(i + 1, 7) > a(n, 1)
'================================================================================================================================================================================================
              'Если дата текущая больше следующей (проверка на новую СФ)
              If Cells(i, 7) <= Cells(i + 1, 7) Then
                'Повторно проверяем условие
                If Cells(i, 7) < a(n, 1) And Cells(i + 1, 7) > a(n, 1) Then
                    Rows(i + 1).Insert 'создаем строку
                    Lastrow = Lastrow + 1
                    Cells(i + 1, 7) = a(n, 1) 'вносим дату ключевой ставки
                    Cells(i + 1, 1) = "Смена ключевой ставки" ' пишем заметку
                    Cells(i + 1,  = "=RC[-1]-R[-1]C[-1]" 'вставляем формулу подсчета количества дней
                    Cells(i + 1, 9) = a(n - 1, 2) ' вносим ключевую ставку
                Else
                    'Cells(i,  = Application.Index(Worksheets("Лист1").Range("A2:B29"), Application.Match(Cells(i, 7), Worksheets("Лист1").Range("A2:A29"), 1), 1)
                    ' находим ближайшую ключевую ставку и вносим ее
                    Cells(i + 1,  = "=RC[-1]-R[-1]C[-1]" 'вставляем формулу подсчета количества дней
                    Cells(i + 1, 9) = Application.Index(Worksheets("Лист1").Range("A2:B29"), Application.Match(Cells(i, 7), Worksheets("Лист1").Range("A2:A29"), 1), 2)
                End If
               Else
               End If
        Next i
'================================================================================================================================================================================================
        
End Sub