Note: Sheet2 has 30,000 rows data. When I tried to execute your code I received error message "Run Time Error '7' Out of Memory" on below line

ReDim y(1 To UBound(x, 1) * UBound(x, 1), 1 To 2)