Работа с макросом - аналогом ВПР - VBA

Формулировка задачи:

Добрый день, мастера VBA) Прошу помочь с макросом, который нашел здесь на ресурсе. Не могу адаптировать под свои нужды. Проблема следующая: Столбцы "Категория", "Район" должны по "Индексу" "подтягиваться" на лист РАСЧЕТ с листа БИБЛИОТЕКА. Все прекрасно в макросе, но он подтягивает на листе "Расчет" в столбец B, а мне надо в Е. А Категорию на листе Расчет не в "С", а в F Нужен именно макрос так как в массиве свыше 100 000 строк бывает Заранее благодарен

Решение задачи: «Работа с макросом - аналогом ВПР»

textual
                            Листинг программы 
                        

                            a = Sheets(2).UsedRange.Value
    'ReDim Preserve a(1 To UBound(a), 1 To 2)
    For i = 1 To UBound(a)
        If sd.Exists(a(i, 1)) Then
           a(i, 5) = Split(sd.Item(a(i, 1)), "/")(0)
           a(i, 6) = Split(sd.Item(a(i, 1)), "/")(1)
        End If
    Next
                        