return only values from one column which have different values in another column

[mana]

Option Explicit


Sub test2()
    Dim r As Range
    Dim a As Range


    ActiveSheet.Copy
    
    With Cells(1).CurrentRegion.Columns("c")
        .Formula = "=if(countifs(a:a,a1,b:b,b1)=1,1)"
        On Error Resume Next
        Set a = .SpecialCells(xlCellTypeFormulas, 4)
        On Error GoTo 0
    End With
    
    If Not a Is Nothing Then a.EntireRow.Delete
    Columns("b:c").ClearContents
    Columns("a").RemoveDuplicates 1
    
End Sub