JDC, seria bom vc colocar uma planilha compactada (zip, rar), com um exemplo do que vc quer fazer.

Somente pelo que vc escreveu, daria pra fazer, mas as vezes pode não ser bem o que vc procura.

Boa noite!!
Sem seu arquivo fica ruim, tente adaptar..

Sub test()

Dim lngLastRow As Long, lngLoopRow As Long
Dim lngWriteRow As Long
Dim rngFindRange

lngWriteRow = 1
lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row

For lngLoopRow = lngLastRow To 1 Step -1

    With Cells(lngLoopRow, 1)

        If WorksheetFunction.CountIf(Range("A1:A" & lngLastRow), .Value) > 1 Then
    
            If Range("C:C").Find(.Value, lookat:=xlWhole) Is Nothing Then
            
                Cells(lngWriteRow, 3) = .Value
                lngWriteRow = lngWriteRow + 1
                
            End If
                   
        End If
        
    End With
    
Next lngLoopRow

Estou anexando uma planilha, a coluna A seria matriz, onde deve ser feita a busca, a coluna B fica os valores e na coluna C é onde o conteúdo da célula da coluna B deve ser movido ou copiado.