Finding Last column

[bhandari]

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

 

[Rick Rothstein]

LastCol = Cells(Rows.Count, "A").End(xlUp).Row

 

[AlphaFrog]

Two methods.

    Size = Worksheets(1).Columns(1).Find("*", , , , 1, 2).Row
    
    Size = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row