option base 1
sub dd()
set d=createobject("Scripting.Dictionary")
arr=[c1].currentregion
brr=[a1].currentregion
for i=2 to ubound(arr)
d(arr(i,1))=""
next
for i=2 to ubound(brr)
if d.exists(brr(i,1)) then
d.remove brr(i,1)
end if
next
[a18].resize(d.count)=application.transpose(d.keys)
end sub