Appling a range of data to a range of individual cells

Instead of screenshots, please attach a sample workbook with expected output for better understanding

Try this code...

Sub AddProductsToCustomers()
Dim rCust As Range, rProd As Range, rMyRng As Range, nEndRw As Long

Application.ScreenUpdating = False

Set rCust = Sheets("Customers").Range("A1").CurrentRegion
Set rProd = Sheets("Products").Range("A1").CurrentRegion
nEndRw = rCust.Rows.Count

Sheets.Add
ActiveSheet.Name = "Output " & Sheets.Count
Set rMyRng = Cells(1, "A")

For i = 1 To nEndRw
    Set rMyRng = rMyRng.Resize(rProd.Rows.Count)
        rMyRng.Value = rCust.Cells(i).Value
        rProd.Copy rMyRng.Cells(1).Offset(0, 1)
    Set rMyRng = rMyRng.Offset(rMyRng.Rows.Count)
Next i

Range("A1").CurrentRegion.Columns.AutoFit

Application.ScreenUpdating = True

End Sub

I have attached your sample file with Macro Code for your reference.

Refer the below link to know how to insert VBA code in Module
http://www.contextures.com/xlvba01.html

Insert a new column in Column-C

In C2 Cell

=IF(AND(COUNTIFS($A$2:A2,A2,$B$2:B2,B2)>1,F2=0),"Select&Delete","RequiredData")

Drag it down...

Copy and paste the column-C formula as values using paste special.

Now Apply filter for column-C and select "Select&Delete" and delete the entire row...

Try this in Duplicate file.

Select Column-A & Column-B and Data>>Remove Duplicates>>Ok...

Oopss... Just select the whole range of data and in Remove duplicates Give Tick for Column-A & B alone which will do the task perfectly.

Please check and confirm

Refer the attached file for details