Sub AllCombos()
Dim nCount1 As Integer
Dim nCount2 As Integer
Dim nCount3 As Integer
Dim x As Long, m As Long
Dim i As Integer, j As Integer, k As Integer
Dim vArray() As Variant
nCount1 = Cells(65536, 1).End(xlUp).Row
nCount2 = Cells(65536, 2).End(xlUp).Row
nCount3 = Cells(65536, 3).End(xlUp).Row
x = nCount1 * nCount2 * nCount3
ReDim vArray(1 To x, 1 To 3)
m = 1
For i = 1 To nCount1
For j = 1 To nCount2
For k = 1 To nCount3
vArray(m, 1) = Cells(i, 1)
vArray(m, 2) = Cells(j, 2)
vArray(m, 3) = Cells(k, 3)
m = m + 1
Next k
Next j
Next i
Range("F1").Resize(x, 3) = vArray
End Sub