Additional info for those who may want to try my approach.
With the category layout I mentioned above, the shopper will see an click on the general product they want (Batting Jackets) and the Featured Products modules will display the styles available.
Here's the macro for breaking down categories: (It is very rough coding...haven't had a chance to clean an make it more efficient but it does work)
Sub RECATEGOIZE()
'temp
Counter = 0
'****************
search_product = ""
search_product_range = ""
product_first_find = ""
search_size = ""
search_size_range = ""
size_first_find = ""
search_color = ""
search_color_range = ""
color_first_find = ""
category = ""
subcategory1 = ""
subcategory2 = ""
' subcategory3 = ""
' subcategory4 = ""
subcategory1_search_range = 2
Do
'DETERMINE TOP LEVEL CATEGORY AND SET VARIABLE
If Counter = 0 Then category = "Apparel"
If Counter = 0 Then subcategory1_search_value = Sheets("MY_CATEGORIES").Range("I" & subcategory1_search_range).Value
'DETERMINE SUBCATEGORY 1 AND SET VARIABLE
If subcategory1_search_value = "apparel/performance_wear/athletic_wear/" Then subcategory1 = "Athletic Wear"
If subcategory1_search_value = "apparel/headwear/sunglasses/" Then subcategory1 = "Headwear"
If subcategory1_search_value = "apparel/men/jackets_coats/" Then subcategory1 = "Vests"
If subcategory1_search_value = "apparel/womens_shapeware/" Then subcategory1 = "Women's Shapewear"
If subcategory1_search_value = "apparel/men/mens_shapeware/" Then subcategory1 = "Men's Shapewear"
'FIND THE PRODUCT AND MAKE SURE IT MATCHES SUBCATEGORY1 THEN SET SUBCATEGORY 2 VALUE
Sheets("DATAFEED").Select
Range("E:E").Select
'SET PRODUCT VARIABLE
search_product_range = 2
Do
search_product = Sheets("MY_CATEGORIES").Range("AB" & search_product_range).Value
Selection.Find(What:=search_product, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value Then product_first_find = ActiveCell.Offset(0, -4).Value
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value Then subcategory2 = search_product
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value = "" Then subcategory2 = search_product
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value <> "" Then subcategory2 = Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value
'LENS THICKNESS
' subcategory5 = ""
' If InStr(ActiveCell, "52mm") > 0 Then subcategory5 = "52MM"
' If InStr(ActiveCell, "57mm") > 0 Then subcategory5 = "57MM"
'SIZE SEARCH
subcategory3 = ""
'XSMALL
If InStr(ActiveCell, "X-Small") > 0 Then subcategory3 = "Extra Small"
'SMALL
If InStr(ActiveCell, "Small") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Size S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Black-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "########-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "White-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Purple-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Turquoise-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Cocoa-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Green-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Cherry-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Fuchsia-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Beige-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Unique Colors-S") > 0 Then subcategory3 = "Small"
'SMALL-MEDIUM
If InStr(ActiveCell, "S/M") > 0 Then subcategory3 = "Small-Medium"
'MEDIUM
If InStr(ActiveCell, "Medium") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Size M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Black-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "########-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "White-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Purple-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Turquoise-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Cocoa-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Green-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Cherry-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Fuchsia-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Beige-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Unique Colors-M") > 0 Then subcategory3 = "Medium"
'LARGE
If InStr(ActiveCell, "Large") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Black-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "########-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "White-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Purple-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Turquoise-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Cocoa-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Green-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Cherry-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Fuchsia-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Beige-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Unique Colors-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Size L") > 0 Then subcategory3 = "Large"
'L-XL
If InStr(ActiveCell, "L/XL") > 0 Then subcategory3 = "Large-1X Large"
'1XL
If InStr(ActiveCell, "XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Black-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "X-Large") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "########-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "White-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Purple-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Turquoise-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Cocoa-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Green-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Cherry-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Fuchsia-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Beige-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Unique Colors-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "1XL") > 0 Then subcategory3 = "1X Large"
'2XL
If InStr(ActiveCell, "XX") > 0 Then subcategory3 = "2X Large"
If InStr(ActiveCell, "2XL") > 0 Then subcategory3 = "2X Large"
'3XL
If InStr(ActiveCell, "XXX") > 0 Then subcategory3 = "3X Large"
If InStr(ActiveCell, "3XL") > 0 Then subcategory3 = "3X Large"
'4XL
If InStr(ActiveCell, "XXXX") > 0 Then subcategory3 = "4X Large"
If InStr(ActiveCell, "4XL") > 0 Then subcategory3 = "4X Large"
'5XL
If InStr(ActiveCell, "XXXXX") > 0 Then subcategory3 = "5X Large"
If InStr(ActiveCell, "5XL") > 0 Then subcategory3 = "5X Large"
'6XL
If InStr(ActiveCell, "XXXXXX") > 0 Then subcategory3 = "6X Large"
If InStr(ActiveCell, "6XL") > 0 Then subcategory3 = "6X Large"
'YOUTH SIZES
If InStr(ActiveCell, "YS") > 0 Then subcategory3 = "Youth Small"
If InStr(ActiveCell, "YM") > 0 Then subcategory3 = "Youth Medium"
If InStr(ActiveCell, "YL") > 0 Then subcategory3 = "Youth Large"
If InStr(ActiveCell, "Youth Small") > 0 Then subcategory3 = "Youth Small"
If InStr(ActiveCell, "Youth Medium") > 0 Then subcategory3 = "Youth Medium"
If InStr(ActiveCell, "Youth Large") > 0 Then subcategory3 = "Youth Large"
'WOMENS SIZES
If InStr(ActiveCell, "-32") > 0 Then subcategory3 = "Size 32"
If InStr(ActiveCell, "-34") > 0 Then subcategory3 = "Size 34"
If InStr(ActiveCell, "-36") > 0 Then subcategory3 = "Size 36"
If InStr(ActiveCell, "-38") > 0 Then subcategory3 = "Size 38"
If InStr(ActiveCell, "-40") > 0 Then subcategory3 = "Size 40"
If InStr(ActiveCell, "-42") > 0 Then subcategory3 = "Size 42"
If InStr(ActiveCell, "-44") > 0 Then subcategory3 = "Size 44"
If InStr(ActiveCell, "-46") > 0 Then subcategory3 = "Size 46"
'COLOR SEARCH
subcategory4 = ""
If InStr(ActiveCell, "Beige") > 0 Then subcategory4 = "Beige"
If InStr(ActiveCell, "Black") > 0 Then subcategory4 = "Black"
If InStr(ActiveCell, "Blue Bird") > 0 Then subcategory4 = "Blue Bird"
If InStr(ActiveCell, "Brown") > 0 Then subcategory4 = "Brown"
If InStr(ActiveCell, "Camo") > 0 Then subcategory4 = "Camo"
If InStr(ActiveCell, "Cherry") > 0 Then subcategory4 = "Cherry"
If InStr(ActiveCell, "Cocoa") > 0 Then subcategory4 = "Cocoa"
If InStr(ActiveCell, "Fuchsia") > 0 Then subcategory4 = "Fuchsia"
If InStr(ActiveCell, "Gray") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Est. In 1997 Tee-Shirt") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Grey") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Green") > 0 Then subcategory4 = "Green"
If InStr(ActiveCell, "Heather") > 0 Then subcategory4 = "Heather"
If InStr(ActiveCell, "Khaki") > 0 Then subcategory4 = "Khaki"
If InStr(ActiveCell, "Maroon") > 0 Then subcategory4 = "Maroon"
If InStr(ActiveCell, "Navy") > 0 Then subcategory4 = "Navy Blue"
If InStr(ActiveCell, "########") > 0 Then subcategory4 = "########"
If InStr(ActiveCell, "Olive Drab") > 0 Then subcategory4 = "Olive Drab"
If InStr(ActiveCell, "Purple") > 0 Then subcategory4 = "Purple"
If InStr(ActiveCell, " Red ") > 0 Then subcategory4 = "Red"
If InStr(ActiveCell, "Royal") > 0 Then subcategory4 = "Royal Blue"
If InStr(ActiveCell, "Turquoise") > 0 Then subcategory4 = "Turquoise"
If InStr(ActiveCell, "Unique Colors") > 0 Then subcategory4 = "Unique Colors"
If InStr(ActiveCell, "White") > 0 Then subcategory4 = "White"
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value Then ActiveCell.Offset(0, 24).Value = category & subcategory1 & subcategory2 & subcategory3 & subcategory4
If product_first_find <> "" Then
Do
search_product = Sheets("MY_CATEGORIES").Range("AB" & search_product_range).Value
Selection.Find(What:=search_product, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
'LENS THICKNESS
' subcategory5 = ""
' If InStr(ActiveCell, "52MM") > 0 Then subcategory5 = "52MM"
' If InStr(ActiveCell, "57MM") > 0 Then subcategory5 = "57MM"
'SIZE SEARCH
subcategory3 = ""
'XSMALL
If InStr(ActiveCell, "X-Small") > 0 Then subcategory3 = "Extra Small"
'SMALL
If InStr(ActiveCell, "Small") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Size S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Black-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "########-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "White-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Purple-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Turquoise-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Cocoa-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Green-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Cherry-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Fuchsia-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Beige-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Unique Colors-S") > 0 Then subcategory3 = "Small"
'SMALL-MEDIUM
If InStr(ActiveCell, "S/M") > 0 Then subcategory3 = "Small-Medium"
'MEDIUM
If InStr(ActiveCell, "Medium") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Size M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Black-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "########-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "White-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Purple-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Turquoise-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Cocoa-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Green-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Cherry-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Fuchsia-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Beige-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Unique Colors-M") > 0 Then subcategory3 = "Medium"
'LARGE
If InStr(ActiveCell, "Large") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Black-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "########-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "White-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Purple-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Turquoise-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Cocoa-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Green-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Cherry-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Fuchsia-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Beige-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Unique Colors-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Size L") > 0 Then subcategory3 = "Large"
'L-XL
If InStr(ActiveCell, "L/XL") > 0 Then subcategory3 = "Large-1X Large"
'1XL
If InStr(ActiveCell, "XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Black-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "X-Large") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "########-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "White-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Purple-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Turquoise-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Cocoa-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Green-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Cherry-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Fuchsia-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Beige-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Unique Colors-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "1XL") > 0 Then subcategory3 = "1X Large"
'2XL
If InStr(ActiveCell, "XX") > 0 Then subcategory3 = "2X Large"
If InStr(ActiveCell, "2XL") > 0 Then subcategory3 = "2X Large"
'3XL
If InStr(ActiveCell, "XXX") > 0 Then subcategory3 = "3X Large"
If InStr(ActiveCell, "3XL") > 0 Then subcategory3 = "3X Large"
'4XL
If InStr(ActiveCell, "XXXX") > 0 Then subcategory3 = "4X Large"
If InStr(ActiveCell, "4XL") > 0 Then subcategory3 = "4X Large"
'5XL
If InStr(ActiveCell, "XXXXX") > 0 Then subcategory3 = "5X Large"
If InStr(ActiveCell, "5XL") > 0 Then subcategory3 = "5X Large"
'6XL
If InStr(ActiveCell, "XXXXXX") > 0 Then subcategory3 = "6X Large"
If InStr(ActiveCell, "6XL") > 0 Then subcategory3 = "6X Large"
'YOUTH SIZES
If InStr(ActiveCell, "YS") > 0 Then subcategory3 = "Youth Small"
If InStr(ActiveCell, "YM") > 0 Then subcategory3 = "Youth Medium"
If InStr(ActiveCell, "YL") > 0 Then subcategory3 = "Youth Large"
If InStr(ActiveCell, "Youth Small") > 0 Then subcategory3 = "Youth Small"
If InStr(ActiveCell, "Youth Medium") > 0 Then subcategory3 = "Youth Medium"
If InStr(ActiveCell, "Youth Large") > 0 Then subcategory3 = "Youth Large"
'WOMENS SIZES
If InStr(ActiveCell, "-32") > 0 Then subcategory3 = "Size 32"
If InStr(ActiveCell, "-34") > 0 Then subcategory3 = "Size 34"
If InStr(ActiveCell, "-36") > 0 Then subcategory3 = "Size 36"
If InStr(ActiveCell, "-38") > 0 Then subcategory3 = "Size 38"
If InStr(ActiveCell, "-40") > 0 Then subcategory3 = "Size 40"
If InStr(ActiveCell, "-42") > 0 Then subcategory3 = "Size 42"
If InStr(ActiveCell, "-44") > 0 Then subcategory3 = "Size 44"
If InStr(ActiveCell, "-46") > 0 Then subcategory3 = "Size 46"
'COLOR SEARCH
subcategory4 = ""
If InStr(ActiveCell, "Beige") > 0 Then subcategory4 = "Beige"
If InStr(ActiveCell, "Black") > 0 Then subcategory4 = "Black"
If InStr(ActiveCell, "Blue Bird") > 0 Then subcategory4 = "Blue Bird"
If InStr(ActiveCell, "Brown") > 0 Then subcategory4 = "Brown"
If InStr(ActiveCell, "Camo") > 0 Then subcategory4 = "Camo"
If InStr(ActiveCell, "Cherry") > 0 Then subcategory4 = "Cherry"
If InStr(ActiveCell, "Cocoa") > 0 Then subcategory4 = "Cocoa"
If InStr(ActiveCell, "Fuchsia") > 0 Then subcategory4 = "Fuchsia"
If InStr(ActiveCell, "Est. In 1997 Tee-Shirt") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Gray") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Grey") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Green") > 0 Then subcategory4 = "Green"
If InStr(ActiveCell, "Heather") > 0 Then subcategory4 = "Heather"
If InStr(ActiveCell, "Khaki") > 0 Then subcategory4 = "Khaki"
If InStr(ActiveCell, "Maroon") > 0 Then subcategory4 = "Maroon"
If InStr(ActiveCell, "Navy") > 0 Then subcategory4 = "Navy Blue"
If InStr(ActiveCell, "########") > 0 Then subcategory4 = "########"
If InStr(ActiveCell, "Olive Drab") > 0 Then subcategory4 = "Olive Drab"
If InStr(ActiveCell, "Purple") > 0 Then subcategory4 = "Purple"
If InStr(ActiveCell, " Red ") > 0 Then subcategory4 = "Red"
If InStr(ActiveCell, "Royal") > 0 Then subcategory4 = "Royal Blue"
If InStr(ActiveCell, "Turquoise") > 0 Then subcategory4 = "Turquoise"
If InStr(ActiveCell, "Unique Colors") > 0 Then subcategory4 = "Unique Colors"
If InStr(ActiveCell, "White") > 0 Then subcategory4 = "White"
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value Then ActiveCell.Offset(0, 24).Value = category & "^" & subcategory1 & "^" & subcategory2 & "^" & subcategory3 & "^" & subcategory4
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And subcategory3 = "" Then ActiveCell.Offset(0, 24).Value = category & "^" & subcategory1 & "^" & subcategory2 & "^" & subcategory4
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And subcategory4 = "" Then ActiveCell.Offset(0, 24).Value = category & "^" & subcategory1 & "^" & subcategory2 & "^" & subcategory3
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And subcategory1 = "Headwear" Then ActiveCell.Offset(0, 24).Value = category & "^" & subcategory1 & "^" & subcategory2 ' & "^" & subcategory5
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value Then subcategory2 = search_product
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value = "" Then subcategory2 = search_product
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value <> "" Then subcategory2 = Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value
Loop Until ActiveCell.Offset(0, -4).Value = product_first_find
End If
search_product_range = search_product_range + 1
product_first_find = ""
Loop Until search_product = ""
subcategory1_search_range = subcategory1_search_range + 1
subcategory1_search_value = Sheets("MY_CATEGORIES").Range("I" & subcategory1_search_range).Value
subcategory1 = ""
Loop Until subcategory1_search_value = ""
End Sub