Combined records from two sheets into a third

[AndyCPF]

Hi
I am looking for some assistance with what is hopefully a fairly simple macro or vba code
I have work book comprising of three sheets these are:
1. A list of customer codes
2. A list of product codes
3. A results sheet
The first sheet comprises of three columns
Customer code
Customer name
Customer discount
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
The second
Product code
Product name
Product price
<o></o>
What I am looking to do is to combine the two sheets into the third and to generate a product record for each customer
<o></o>
So for example if my customer sheet is
Cust Code<o></o>
Customer01
Customer02
Customer03
<o></o>
And my product sheet
Prod Code<o></o>
Product AA
Product AB
Product AC
<o></o>
I would like to produce a matrix of
Cust Code Prod Code<o></o>
Customer01 Product AA
Customer01 Product AB
Customer01 Product AC
Customer02 Product AA
Customer02 Product AB
Customer02 Product AC
Customer03 Product AA
Customer03 Product AB
Customer03 Product AC
<o></o>
Can anyone offer me some insight as to how I may achieve this?
<o></o>
Thanks in advance
Andy

 

[John Davis]

Does this help?

Sub AndyCPF()
Dim rcell As Range
Dim xcell As Range
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row

For Each rcell In Sheets("Customer Code").Range("A2:A" & lr)

    For Each xcell In Sheets("Product Code").Range("A2:A" & lr)
    
        Sheets("Matrix").Range("A" & Rows.Count).End(3)(2).Value = rcell.Value
        Sheets("Matrix").Range("B" & Rows.Count).End(3)(2).Value = xcell.Value
        
    Next xcell
    
Next rcell


End Sub