I have the following code:
Sub DynamicArray()
    Dim numbers() As Integer, size As Integer, i As Integer
    size = WorksheetFunction.CountA(Worksheets(1).Columns(1))
    ReDim numbers(size)
    For i = 1 To size
        numbers(i) = Cells(i, 1).Value
    Next i
      MsgBox numbers(size)
End Sub
My worksheet looks like this and when I run my code, I keep getting "10" when the last value in my array is "20". Any ideas? ThanksArrayError.jpg