T3815_Extract Items Not Listed In Another Column

https://excel-egy.com/forum/t3815
---------------------------------

Sub Extract_Items_Not_Listed_In_Another_Column()
    Dim a, x, i As Long, j As Long

    a = Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To 1000)

    For i = LBound(a) To UBound(a)
        x = Application.Match(a(i, 1), Columns(2), 0)
        If IsError(x) Then
            j = j + 1
            b(j) = a(i, 1)
        End If
    Next i

    Range("E2").Resize(j).Value = Application.Transpose(b)
End Sub