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

	A	B
1	Up	Red
2	Down	Yellow
3		Red

<tbody>
</tbody>

Outcome

	A	B	C	D
1	Up	Red	Up	Red
2	Down	Yellow	Up	Yellow
3		Blue	Up	Blue
4			Down	Red
5			Down	Yellow
6			Down	Blue

<tbody>
</tbody>

 

[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!!