I'm trying to write a row to the end of an array

the logic is essentially:

i = loop through UBound of array 1

x = loop through UBound of array 2

if statement is true then

add the entire row we are looping through from array 1 to the bottom of the array

make changes to the new line and add 4 new values the columns of the row

so what i have so far looks like

Code:

Dim ary1 As Variant, ary2 As Variant
Dim ws As Worksheet, os As Worksheet
Dim i As Long, x As Long, j As Long
Dim lastRow As Long
Dim destRow As Long
Set ws = Sheets("CondensedSheets")
Set os = Sheets("Description Helper")
ary1 = ws.Range("A1").CurrentRegion.Value2
ary2 = os.Range("A13").CurrentRegion.Value2
lastRow = ws.Range("A" & Rows.count).End(xlUp).Row
destRow = lastRow + 1
For i = LBound(ary1) To UBound(ary1)
For x = LBound(ary2) To UBound(ary2)
If ary1(i, 2) = ary2(x, 15) Then
If (ary1(i, 10) = ary2(x, 8) _
Or ary1(i, 11) = ary2(x, 8)) _
And ary1(i, 8) >= ary2(x, 2) _
And ary1(i, 8) <= ary2(x, 3) _
And j < 5 Then
j = j + 1
'increment row
destRow = destRow + 1
ReDim ary1(1 To destRow, 1 To (UBound(ary1, 2) + 4))
'write the new row in the array
**ary1(desRow, ???) = ary1(???) **

highlighted in red is where i'm stuck

## Like this thread? Share it with others