You could actually do quite simply:
The formula in column C is
=IF(COUNTIF($B$1:$B$10,A1),"",A1)
Here is a VBA alternative:
Option Explicit
Sub DisplayUnique()
Dim output As Range, r As Range
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Set output = ThisWorkbook.Worksheets("Sheet1").Range("C1")
For Each r In ThisWorkbook.Worksheets("Sheet1").Range("A1:A10")
If ThisWorkbook.Worksheets("Sheet1").Range("B1:B10").Find(r.Value, , , xlWhole) Is Nothing Then
If Not dict.exists(r.Value) Then dict.Add r.Value, r.Value
End If
Next r
output.Resize(dict.Count, 1).Value = Application.Transpose(dict.keys)
End Sub