A1:A10 wird in einem Array gespeichert

Sub Array_Beispiel()
    Dim Arr()
    For x = 1 To 10
        ReDim Preserve Arr(x)
        Arr(x) = Range("A" & x)
    Next x
    For x = 1 To UBound(Arr)
       MsgBox x
    Next x
End Sub