Help with VBA Finding Duplicates and Copy in new sheet

Hi Everyone

I have the following problem and will appreciate your help:

I have the following code

Please Login or Register  to view this content.

The code looks into Column C and if the division = Mens then it will return the value of the cell in Col A for that row. When I run this the No value aleays stays the same , i.e. in C1 and C5 are equal to Mens but I always get the value of the cell in A2 for NO.

Is the a way I can update the rows so that it returns the NO for the corresponding value when Col C contains Mens.

My second Query is if possible I need do the following:
if value in C Column is Mens then then copy every Customer no from Co A which are duplicated to another sheet (sheet2). In example below Customer 7322 is duplicate and one of the dept is Mens so copy all the rows where No is 7322 to sheet 2. This will not be the case for No 7439 as the departmets does not include Men.

7322 150 Mens Duplicate
7322 1.76 Food and Beverages Duplicate
7439 104.74 Restaurants Duplicate
7439 60 Shoe Heaven Duplicate
8288 60.98 Childrenswear Duplicate

Thank you o much for this. It worked perfectly. This has saved me a lot of time.
Thanks again for the perfect solution

Thank you so much for this. It worked perfectly. This has saved me a lot of time.
Thanks again for the perfect solution

Thank you o much for this. It worked perfectly. This has saved me a lot of time.
Thanks again for the perfect solution