Create Part Numbers based on row/column content

[maykinit]

Approval	Inset	RTD	Class	SensingElement	ElectricalCircuit
1	6	1	A	A	A
3	T		B	B	B
B			C	D	C
E			D		D
					E
					F

I am looking for a solution to create all possible part numbers based on the content of a number of columns.
IE:
161AAA
161BAA
161CAA
161DAA
....or in whatever order that works in capturing all possible combinations. Any help would be incredibly appreciated. There is a time line I am facing down that is growing ever so close.

Thanks so much,

 

[rpaulson]

this will write all the part numbers to column "H"

Sub Part_no()

wr = 1

For a = 2 To Range("A" & Rows.Count).End(xlUp).Row
For b = 2 To Range("B" & Rows.Count).End(xlUp).Row
For c = 2 To Range("C" & Rows.Count).End(xlUp).Row
For d = 2 To Range("D" & Rows.Count).End(xlUp).Row
For e = 2 To Range("E" & Rows.Count).End(xlUp).Row
For f = 2 To Range("F" & Rows.Count).End(xlUp).Row

Cells(wr, "H") = Cells(a, "A") & Cells(b, "B") & Cells(c, "C") & Cells(d, "D") & Cells(e, "E") & Cells(f, "F")
wr = wr + 1

Next f
Next e
Next d
Next c
Next b
Next a


End Sub

 

[maykinit]

Thank you Sir! Who is better than you?
Sincerely,
Huge Thank You,

-M