Como você está se referindo a e-mails em sua pergunta. O valor da célula seria um tipo de dados de string, você pode usar o código abaixo para comparar strings.
Remover apenas o conteúdo das células
Sub stringCompareColumns()
For checkRow = 1 To Range("B1").End(xlDown).Row
If StrComp(Range("B" & checkRow).Value, Range("C" & checkRow).Value) = 1 Then Range("B" & checkRow).Clear
Next
End Sub
Removerlinhainteira
SubcompareColumnsRemoveRow()ForcheckRow=Range("B1").End(xlDown).Row To 2 Step -1
If StrComp(Range("B" & checkRow).Value, Range("C" & checkRow).Value) = 1 Then Rows(checkRow).EntireRow.Delete
Next
End Sub