Copiar celulas repetidas independente da quantidade de vezes apenas uma ves

[Tata21]

Boa tarde,

 

Desculpa se já teve algo parecido sou nova aqui.

Estou com um probleminha, fiz uma macro com a função de pegar da Plan1 onde se encontra uma lista de nomes e copiar para Plan2 apenas os nomes repetidos, porém se o nome repetir por exemplo 3 vezes, ela joga esse nome na Plan2 duas vezes, mas gostaria que minha macro trouxesse a informação somente uma vez independente das vezes que o nome se repete na Plan1, e não traga o nome se não repetir.

Ex atual.

Plan1        Plan2

Maria        Maria 

Maria        Maria 

Maria        José

José

José

Pedro  

 

Ex desejado mudaria que na Plan2 aparecesse da seguinte forma

 

Maria 

José

 

A ideia posterior é colocar uma formula na Plan2 CONT.SE, para calcular a quantidade de repetições 

Ex

Maria 3

José  2

 

Podem me ajudar? 

[Patropi]

Boa noite @Tata21

 

Confira na planilha e dê retorno.

 

Não se esqueça de clicar em Curtir.

 

[]s

11_07_17_Copiar repetidos e contar qtas vezes repete-Patropi.xlsx

[Tata21]

-Gostaria de agradecer mas não da certo pra mim. Eu usei o seguinte comando de macro

Sub Reincidente()
'
' Reincidente Macro
' 'Colar apenas dados repetidos
'
' Atalho do teclado: Ctrl+r
'
'Apagar dados de Plan2

 'Apaga os dados que possam estar na Plan2
    Sheets("Plan2").Columns("A").ClearContents
      
Dim I As Long
Dim QtLinhas As Long

QtLinhas = [A:R].CurrentRegion.Rows.Count

For I = 1 To QtLinhas
    If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(I, 1)), Cells(I, 1)) > 1 Then
        Cells(I, 1).Copy Destination:=Sheets("Plan2").Range("A" & Sheets("Plan2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
      End If
    Next

End Sub

 -Mas esta com a falha que sitei acima. Porém até o momento é o mais próximo do esperado que consegui chegar. Se tiver mais alguma ideia ficarei grata