Need to delete all products in a specific product code except one Supplier.

Products>File>Range Delete

On the Range Delete screen, select the product code you want to delete and then select all of the suppliers you want to delete.  

Click Delete.