Sub cartman()
Z = 1
For i = 1 To Range("A65536").End(xlUp).Row
present = False
For y = 1 To Range("B65536").End(xlUp).Row
If Cells(i, 1) = Cells(y, 2) Then present = True
Next y
If present = False Then
Cells(Z, 2) = Cells(i, 1)
Z = Z + 1
End If
Next i
End Sub