Copying Cell problem and code effiecency issue

Hello all ,

I wrote this code to highlight quadruplets "red" then highlighting triplicates "Yellow" and last duplicates "orange" .. all of that using the FormatConditions function .

then I have a function that changes the FormatConditions.interior.color into cell.interior.clor ..so I can search the cells based on their highlight and extract the data from the selection to column AA if they were quadruplets ...and extract them to collumn AC if triplicates ...and to AE if they were dupliates ...(there is a problem in the code here that it doesn`t get to the point of calculating the duplicates to extract them , in other words I gt data on AA and AC but there is none on AE even though there are duplicates in the data )


then I get the code to check if there are any duplicates in the resulting columns (AA , AC ans AE) ..another problem here is that the check is only done on AA not the rest ..I attached a sample file with the macro ...

any help will be appreciated

thank you

NB : the code takes almost a couple of minutes to calculate