Чем оптимизировать код, массивом или библиотекой и как?

Sub ФормированиеОтчетаНовый()
If Cells(4, 1) = "" Then
  MsgBox "Нет данных для отработки!"
  Exit Sub
End If
r = 4
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row Step 20
  If Left(Cells(i, 1), 29) <> "Справка о дислокации вагона  " Then
    MsgBox "ERROR"
    Exit Sub
  End If
  Cells(r, 6) = Right(Cells(i, 1), 8)
  Cells(r, 7) = Trim(Split(Cells(i + 14, 1), " ", 5)(4))
  Cells(r, 8) = Trim(Split(Cells(i + 12, 1), " ", 4)(2))
  'etc
  r = r + 1
Next i
'MsgBox "Отчет сформирован!"
End Sub

Sub pr()
    Dim a(), b()
    kl = Array("", _
                "Справка о дислокации вагона ", _
                "Вес, кг", _
                "Станция назначения: ", _
                "Код операции", _
                "Станция совершения операции: ", _
                "Дорога сдачи", _
                "Дорога приема", _
                "Индекс поезда", _
                "Номер поезда" _
                )
    nk = Array("", 1, 4, 8, 3, 2, 6, 7, 5, 9)
    a = ActiveSheet.UsedRange.Columns(1).Value
    a = Application.Transpose(a)
    txt = Join(a, " ")
    s = Split(txt, kl(1))
    ReDim b(1 To UBound(s), 1 To 9)
    For i = 1 To UBound(s)
        b(i, nk(1)) = Split(Trim(s(i)))(0)
        For j = 2 To UBound(kl)
            s1 = Split(s(i), kl(j))
            b(i, nk(j)) = Split(s1(1))(1)
        Next
    Next
    Cells(4, 6).Resize(UBound(b), UBound(b, 2)) = b
End Sub