Find unique values between 2 columns

Here's one that will compare columns A and B and put the ones found in A but not B in C and the ones found in B but not in A in D:

Sub Willa(): Dim A As Range, B As Range, p As Long, q As Long
                    p = 1: q = 1
For Each A In Range("A2:A" & Range("A" & Rows.count).End(xlUp).row)
For Each B In Range("B2:B" & Range("B" & Rows.count).End(xlUp).row)
If A = B Then GoTo GetNextA
Next B
p = p + 1: Cells(p, 3) = A
GetNextA: Next A

For Each B In Range("B2:B" & Range("B" & Rows.count).End(xlUp).row)
For Each A In Range("A2:A" & Range("A" & Rows.count).End(xlUp).row)
If A = B Then GoTo GetNextB
Next A
q = q + 1: Cells(q, 4) = B
GetNextB: Next B

End Sub