Dim i As Integer
Dim Array1() As String
Dim Array2() As String
Dim IngRows As Long
Sheets("SimGen").Select
IngRows = ActiveWorkbook.ActiveSheet.Range("B37").End(xlDown).Row
If IngRows > 52 Then
IngRows = 37
End If
' Subtract out the distance from B9 to B1, This section will give me the row that the user has entered. So i may vary between one cycle to 16 cycles.
IngRows = IngRows - 37
For i = 37 To IngRows + 37
AnalogTag = Worksheets("SimGen").Range("B" & i).Value
For SingleIndex = 0 To 124
Redim Preserve Array1(SingleIndex)
Sheets("CTXArray").Select
Array1(SingleIndex) = Worksheets("CTXArray").Range("C" & SingleIndex + 1).Value
Next SingleIndex
Array1(6) = Replace(Array1(6), "Data_Sim", AnalogTag)
Array1(11) = Replace(Array1(11), "data_sim", AnalogTag)
'This is where I tried to resize array2 and move data from array1, but I think it is wrong.
'This what I am trying to accomplish is Array1 will always change 'content each loop cycle
'and i want to move it content into Array2 and keep adding into Array2 as the loop cycles. maybe there is another way of doing this.
Redim Preserve Array2(UBound(Array2) + UBound(Array1))
Array2 = Array1
Next i