Excluir registros com criterio

Question

Olá,

Estou querendo excluir registros, percorrendo todas as linhas da planilha, com base nos seguintes critérios :
1)mesma data;
2) mesmo nome;
3) sinais diferentes

Quando satisfeitos esses critérios, deve-se excluir a linha, tanto para o registro encontrado como também o registro original. Tentei montar o seguinte código que lógico não funciona

Sub testeexcluir()

Set testalinha = Intersect(Range("A:C"), ActiveSheet.UsedRange)
ultimalinha = testalinha.Cells(testalinha.Cells.Count).Row
primeiralinha = testalinha.Cells(1).Row

Cells.Find(What:="data", After:=ActiveCell).Select
Application.Goto Reference:="R[1]C"
ActiveCell.Name = "data"
Application.Goto Reference:="data"
Data = ActiveCell.Value

Cells.Find(What:="nome", After:=ActiveCell).Select
Application.Goto Reference:="R[1]C"
ActiveCell.Name = "nome"
Application.Goto Reference:="nome"
Nome = ActiveCell.Value

Cells.Find(What:="sinal", After:=ActiveCell).Select
Application.Goto Reference:="R[1]C"
ActiveCell.Name = "sinal"
Application.Goto Reference:="sinal"
Sinal = ActiveCell.Value


For i = ultimalinha To primeiralinha Step -1

If Cells(i, 1).Value = Data And Cells(i, 2).Value = Nome And Cells(i, 3) <> Sinal Then
  Rows(i).Delete

End If
Next
End Sub

Se alguém tiver alguma dica, agradeço!