Ubound Defined by Variable in Array

[ktkelly_1]

[FONT=&quot]I am trying to build this array that can be different for each set of data that is consantly growing. This means that I need to have a Ubound that is also growing. Unfortunately when trying to use the counter method to determine how big the Ubound should be everytime I kepp getting an error "Constant expression required". any thoughts?[/FONT]
Do While InStr(ActiveCell.Value, "Column") = 0
a = a + 1
ActivCell.Offset(0, 1).Select
Loop
[FONT=&quot]
[/FONT]
Dim FC(0 To a) As Double
[FONT=&quot] [/FONT]
For i = LBound(FC) To UBound(FC)
If InStr(ActiveCell.Value, "Column") = 0 Then
FC(i) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Else
Exit For
End If
i = i + 1
Next i

 

[DanteAmor]

I help you with your code, but better explain why you need to fill out the arrangement.

Note: You must select a cell where there is a row with the word "Column", if it does not enter a loop.

  cell = ActiveCell.Address
  Do While InStr(ActiveCell.Value, "Column") = 0
    a = a + 1
    ActiveCell.Offset(0, 1).Select
  Loop
  a = a - 1
  ReDim FC(0 To a) As Double
  
  Range(cell).Select
  For i = LBound(FC) To UBound(FC)
    FC(i) = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
  Next i

 

[DanteAmor]

With the following you can put the data in an array a :

Sub test3()
  [COLOR=#0000ff][B]a [/B][/COLOR]= Range(ActiveCell, Cells(ActiveCell.Row, Application.Match("*Column*", Rows(ActiveCell.Row), 0) - 1))
End Sub