>>505
こんな感じか？

Sub macro1()
　　r = 1
　　For r1 = 1 To 5
　　　　For r2 = 1 To 8
　　　　　　For r3 = 1 To 5
　　　　　　　　s = Cells(r1, 1) & Cells(r2, 2) & Cells(r3, 3)
　　　　　　　　Cells(r, 6) = s
　　　　　　　　r = r + 1
　　　　　　Next
　　　　Next
　　Next
End Sub