Sub test()
[c:E].ClearContents
Cells(1, 3).Resize(, 3) = Array(1, 2, 3)
For p1 = 1 To 15
For p2 = p1 + 1 To 15
For p3 = p2 + 1 To 15
Cells(Rows.Count, 3).End(xlUp).Offset(1).Resize(, 3) = Array(Cells(p1, 1), Cells(p2, 1), Cells(p3, 1))
Next
Next
Next
End Sub