VBA Макросы. Как добавить ячейки в одномерный массив?

[Посетитель]

Как добавить ячейки в одномерный массив?
Массив создаётся так:

Sub Макрос()
   
    Dim Arr()
   
    ReDim Arr(1 To 1)
   
End Sub

[Администратор]

Sub Макрос()
   
    Dim Arr()
   
    ReDim Arr(1 To 1)
    ReDim Preserve Arr(1 To 2)
   
End Sub

[Посетитель]

спасибо