Sub tt()
r1_ = Range("A" & Rows.Count).End(xlUp).Row
r2_ = Range("B" & Rows.Count).End(xlUp).Row
r3_ = Range("C" & Rows.Count).End(xlUp).Row
r4_ = Range("D" & Rows.Count).End(xlUp).Row
r5_ = Range("E" & Rows.Count).End(xlUp).Row
r_ = 3
For a1_ = 3 To r1_
      For a2_ = 3 To r2_
          For a3_ = 3 To r3_
              For a4_ = 3 To r4_
                  For a5_ = 3 To r5_
Range("G" & r_) = Range("A" & a1_) & ", " & Range("B" & a2_) & ", " & Range("C" & a3_) & ", " & Range("D" & a4_) & ", " & Range("E" & a5_)
                      r_ = r_ + 1
                  Next a5_
              Next a4_
          Next a3_
      Next a2_
Next a1_
End Sub