Добрый день! В макросах - профан, но тема мне интересна. Пытаюсь изучать,правда на своих личных примерах... Прошу помочь дописать макрос под свою таблицу. Был исходик одного вида, таблица изменилась, но результат нужен тот же. Пытаюсь доработать макрос, но знаний катастрофически не хватает. Прошу помощи....При запуске макроса "Ctrl+z" готова таблица, но пустая... Знаю, что ошибка в

ReDim b(1 To UBound(a, 1) * 2, 1 To 51)
   For i = 1 To UBound(a, 1)
       If Val(a(i, 1)) = 0 Then
           If InStr(a(i, 1), "ОКТМО") <> 0 Then
               q = Split(a(i, 1), "ОКТМО")
               s1 = Trim(q(LBound(q)))
               s2 = Trim(q(UBound(q)))

Научите, плиззз!