Será que é isso que queria?

Sub sem_retorno()
Application.ScreenUpdating = False
On Error Resume Next
Dim nome As String
Dim result As Integer
nome = ActiveCell.Value
Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A1").Select
ActiveCell.Offset(1, 0).Select
For i = 2 To 10
result = WorksheetFunction.CountIf(ActiveSheet.Range("A:A"), ActiveCell.Value)
If result = 1 Then
ActiveCell.Offset(0, 2).Value = "1"
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
Range("C1").Value = "status"
Range("A1").Select
Selection.AutoFilter field:=3, Criteria1:="1", Operator:=xlFilterValues
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("E2").Select
ActiveSheet.Paste
ActiveSheet.ShowAllData
Range("C:C").Value = ""
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Segue plan com o código já funcionando...

Abrç!

Isso mesmo!! Só me ensina como vc inclui aquele botao no form.

grato,

1 - Guia DESENVOLVEDOR > Inserir > Botão (Controle de formulário)
2 - Clique em qualquer lugar da planilha para que ele apareça, surgirá uma tela para vincular o botão a uma macro.
3 - Selecione a macro desejada > OK

* Para isso a guia "DESENVOLVEDOR" do seu excel deve estar Habilitada.

Caso não esteja, faça isso primeiro:
1- Clique na guia Arquivo.
2- Clique em Opções.
3- Clique em Personalizar Faixa de Opções.
4- Em Personalizar a Faixa de Opções e em Guias Principais, marque a caixa de seleção Desenvolvedor.

Pronto.
Vlw!

Tem que mover esse tópico para Macros e VBA

Olá fiz uma correção no código pois ele estava limitado a 10 linhas.
Agora o código acompanha a quantidade de linhas inseridas na coluna A, resolvendo assim o prolema.

Vlw!