Macro?: Copy & Paste from Two Lists

[okie_ryan]

Greetings. I have two sets of data in the Sample below. I am looking for a way to automatically create the Outcome: each value in Column A paired with each value in Column B - creating two new datasets in Columns C and D.

The solution must work for much larger datasets. THANK YOU!!

Sample
[TABLE="class: grid, width: 100"]
<tbody>[TR]
[TD="align: center"][/TD]
[TD="align: center"]A[/TD]
[TD="align: center"]B[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Up[/TD]
[TD]Red[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Down[/TD]
[TD]Yellow[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD][/TD]
[TD]Red[/TD]
[/TR]
</tbody>[/TABLE]

Outcome
[TABLE="class: grid, width: 100"]
<tbody>[TR]
[TD][/TD]
[TD="align: center"]A[/TD]
[TD="align: center"]B[/TD]
[TD="align: center"]C[/TD]
[TD="align: center"]D[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Up[/TD]
[TD]Red[/TD]
[TD]Up[/TD]
[TD]Red[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Down[/TD]
[TD]Yellow[/TD]
[TD]Up[/TD]
[TD]Yellow[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD][/TD]
[TD]Blue[/TD]
[TD]Up[/TD]
[TD]Blue[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD][/TD]
[TD][/TD]
[TD]Down[/TD]
[TD]Red[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD][/TD]
[TD][/TD]
[TD]Down[/TD]
[TD]Yellow[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD][/TD]
[TD][/TD]
[TD]Down[/TD]
[TD]Blue[/TD]
[/TR]
</tbody>[/TABLE]

 

[Boller]

Perhaps :-

Dim rngA As Range, rngB As Range, r#
Set rngA = Range([A1], Cells(Rows.Count, 1).End(xlUp))
Set rngB = Range([B1], Cells(Rows.Count, 2).End(xlUp))
r = rngA.Rows.Count * rngB.Rows.Count
rngA.Copy [C1].Resize(r)
Range([C1], Cells(r, 3)).Sort Key1:=[C1], _
  Order1:=xlDescending, Header:=xlNo
rngB.Copy [D1].Resize(r)

 

[okie_ryan]

Boller - Absolutely perfect/brilliant. Thank you so much!!