Sub Macro1()
'
' TestingOutCode
'
'
Sheet6XTotalProductName = Worksheets("sheet6").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Row
For RunSkipProductName = 1 To Sheet6XTotalProductName
If RunSkipProductName = 147 Then
Cells(1, 1) = 1
End If
ProductName1 = Worksheets("sheet6").Cells(RunSkipProductName, 1)
Sheet1XTotalProductName = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Row
Set SkipProductName = Worksheets("sheet1").Range(Cells(2, 2), Cells(Sheet1XTotalProductName, 2)).Find(ProductName1)
If SkipProductName Is Nothing Then
Sheet1XTotalProductNameRecord = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
If RunSkipProductName = 1 Then
ProductName1 = Worksheets("sheet6").Cells(RunSkipProductName, 1)
Product_ID = Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord, 1) + 1
Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord, 1) = Product_ID
Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord, 2) = ProductName1
Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord, 3) = Product_ID
Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord, 4) = Worksheets("sheet6").Cells(RunSkipProductName, 2)
Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord, 5) = Worksheets("sheet6").Cells(RunSkipProductName, 3)
Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord, 6) = Worksheets("sheet6").Cells(RunSkipProductName, 4)
Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord, 7) = Worksheets("sheet6").Cells(RunSkipProductName, 5)
Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord, 8) = Worksheets("sheet6").Cells(RunSkipProductName, 6)
Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord, 9) = Worksheets("sheet6").Cells(RunSkipProductName, 7)
Worksheets("sheet1").Cells((Sheet1XTotalProductNameRecord), 10) = Worksheets("sheet6").Cells(RunSkipProductName, 8)
End If
If RunSkipProductName > 1 Then
Product_ID = Worksheets("sheet1").Cells(Sheet1XTotalProductNameRecord - 1, 1) + 1
Worksheets("sheet1").Cells((Sheet1XTotalProductNameRecord), 1) = Product_ID
Worksheets("sheet1").Cells((Sheet1XTotalProductNameRecord), 2) = ProductName1
Sheet1XTotalRetailPriceRecord = Worksheets("sheet1").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
Worksheets("sheet1").Cells(Sheet1XTotalRetailPriceRecord, 3) = Product_ID
Worksheets("sheet1").Cells(Sheet1XTotalRetailPriceRecord, 4) = Worksheets("sheet6").Cells(RunSkipProductName, 2)
Worksheets("sheet1").Cells(Sheet1XTotalRetailPriceRecord, 5) = Worksheets("sheet6").Cells(RunSkipProductName, 3)
Worksheets("sheet1").Cells(Sheet1XTotalRetailPriceRecord, 6) = Worksheets("sheet6").Cells(RunSkipProductName, 4)
Worksheets("sheet1").Cells(Sheet1XTotalRetailPriceRecord, 7) = Worksheets("sheet6").Cells(RunSkipProductName, 5)
Worksheets("sheet1").Cells(Sheet1XTotalRetailPriceRecord, 8) = Worksheets("sheet6").Cells(RunSkipProductName, 6)
Worksheets("sheet1").Cells(Sheet1XTotalRetailPriceRecord, 9) = Worksheets("sheet6").Cells(RunSkipProductName, 7)
Worksheets("sheet1").Cells((Sheet1XTotalRetailPriceRecord), 10) = Worksheets("sheet6").Cells(RunSkipProductName, 8)
End If
ElseIf SkipProductName = ProductName Then
Sheet1XTotalRetailPriceRecord = Worksheets("sheet1").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
SkipNumberBetNumberRow = SkipProductName.Row
Price_ID = Worksheets("sheet1").Cells(SkipNumberBetNumberRow, 1)
Worksheets("sheet1").Cells((Sheet1XTotalRetailPriceRecord), 3) = Price_ID
Worksheets("sheet1").Cells((Sheet1XTotalRetailPriceRecord), 4) = Worksheets("sheet6").Cells(RunSkipProductName, 2)
Worksheets("sheet1").Cells((Sheet1XTotalRetailPriceRecord), 5) = Worksheets("sheet6").Cells(RunSkipProductName, 3)
Worksheets("sheet1").Cells((Sheet1XTotalRetailPriceRecord), 6) = Worksheets("sheet6").Cells(RunSkipProductName, 4)
Worksheets("sheet1").Cells((Sheet1XTotalRetailPriceRecord), 7) = Worksheets("sheet6").Cells(RunSkipProductName, 5)
Worksheets("sheet1").Cells((Sheet1XTotalRetailPriceRecord), 8) = Worksheets("sheet6").Cells(RunSkipProductName, 6)
Worksheets("sheet1").Cells((Sheet1XTotalRetailPriceRecord), 9) = Worksheets("sheet6").Cells(RunSkipProductName, 7)
Worksheets("sheet1").Cells((Sheet1XTotalRetailPriceRecord), 10) = Worksheets("sheet6").Cells(RunSkipProductName, 8)
End If
'If Sheet1XTotalRetailPriceRecord <> Sheet1XTotalProductNameRecord Then
'MsgBox "Problem"
'Cells(1, 1) = 1
'End If
Next RunSkipProductName
End Sub
[/QUOTE]
[QUOTE="dmt32, post: 5853868, member: 219730"]