At work. But I wrote something that is going to give you all the combinations. You can treat it as a template
![]()
Sub Test() Dim i As Long, j As Long, LRi As Long, LRj As Long, x As Long LRi = Cells(Rows.Count, 1).End(xlUp).Row LRj = Cells(Rows.Count, 2).End(xlUp).Row x = 2 For i = 2 To LRi For j = 2 To LRj Cells(x, 4) = Cells(i, 1) Cells(x, 5) = Cells(j, 2) x = x + 1 Next j Next i End Sub
Bookmarks