Как загнать в массив столбцы идущие не по порядку

Sub tt()
    array_1 = [a1:a3]
    last = UBound(array_1)
    MsgBox last
    x = array_1(last, 1)
    MsgBox x
End Sub

Dim slovar() as Variant

last = UBound(slovar)

    Dim slovar(0 To 0) As Variant
    last = UBound(slovar)

Sub Example()
Dim arr
arr = Array()
MsgBox LBound(arr) & " >> " & UBound(arr)
ReDim arr(10)
MsgBox LBound(arr) & " >> " & UBound(arr)
End Sub

ReDim arr(10)

ReDim arr(1 to 10)

ReDim arr(10)

ReDim arr(1 To 11)

Option Base 1

ReDim arr(10)

ReDim arr(1 To 10)

ReDim arr(1 To 11)

For n = 1 To l Step 19
                 schet = Mid(temp, n, m)
                 temp3 = Mid(schet, 13, 4)
                 Worksheets(14).Cells(i, 5) = Worksheets(14).Cells(i, 5) + 1
                 If temp3 = "весь" Then
                 Else
                     temp4 = Mid(schet, 13, 5)
                     If temp4 = "часть" Then
                         kont = Mid(temp, n, 19)
                         last = UBound(slovar)
                         For k = 0 To last
                            If slovar(k) = 0 Then
                                slovar(k) = kont
                            Else
                                If kont <> slovar(k) Then
                                    last = last + 1
                                    slovar(last) = kont
                                    Exit For
                                Else
                                End If
                            End If
                         Next k
                      Else
                      End If
                  End If
             Next n