Hello dawondr,
Here's a code suggestion. Let me know if you have any questions.
Insert the code in a module and run it. The list will be updated everytime you run the code.
Sub Combinations()
Dim ar, arStores, arToys
Dim i As Long, j As Long, n As Long
Dim nStores As Integer, nToys As Integer
Application.ScreenUpdating = False
arStores = Range("E1:E" & Range("E65000").End(xlUp).Row).Value
arToys = Range("F1:F" & Range("F65000").End(xlUp).Row).Value
nStores = UBound(arStores, 1)
nToys = UBound(arToys, 1)
n = 1
ReDim ar(1 To nStores * nToys, 1 To 2)
For i = 2 To UBound(arStores, 1)
For j = 2 To UBound(arToys, 1)
ar(n, 1) = arStores(i, 1)
ar(n, 2) = arToys(j, 1)
n = n + 1
Next j
Next i
Range("A2").Resize(UBound(ar, 1), 2) = ar
Application.ScreenUpdating = True
End Sub
Bookmarks