Vou deixar a macro, mas, por algum motivo, selecionar os dados e limpá-los e, em seguida, usar ferramentas de tabela para remover duplicatas, funcionou.
Você pode ver a solução de problemas no link de bate-papo nos comentários da pergunta
Depois de filtrar a tabela, execute essa macro
Sub Macro1()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("TableName").DataBodyRange.Delete
Application.ScreenUpdating = True
End Sub