Code:
Private Sub Constant_demo_Click()
Dim numbers() As Integer
Dim i As Integer
Dim Size 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
Looking for alternative way to find last row in column