you could try following macro
Sub Macrounique()

For Each cell In Range("a:a")
Range("b:b").Select
On Error GoTo myerr
Selection.Find(What:=cell, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Next cell
myerr:
Range("c5536").End(xlUp).Select
ActiveCell.Offset(1, 0) = cell.Value
Resume Next
End Sub

"ykas" wrote:

i want to compare data in list 1 in column A with list 2 in column B and make
a column C which shows data which is not in A

A B C
apple apple cat
cat ball rubber
ball dog
rubber
dog