Closing this
Here is one way
Names Default To Here( 1 );
dt = Current Data Table();
aa = Associative Array( :Percent << get values );
For Each( {{key, value}}, aa, aa[key] = dt[Loc( dt[0, "Percent"], key ), "Product"] );
dt << New Column( "Product Code Range", Character, Nominal, <<Set Each Value( Concat Items( aa[:Percent], ", " ) ) );
dt << select duplicate rows( Match( :Label, :Percent ) );
Try( dt << delete rows );