sub demo()
set d = CreateObject("Scripting.Dictionary")
with sheets(1)
a=.[a1].CurrentRegion
for i = 1 to ubound(a)
d(a(i,1)) = d(a(i,1)) & "," & a(i,2)
next
end with
with sheets(2)
a=.[a1].CurrentRegion
for i = 1 to ubound(a)
a(i,1)= mid(d(a(i,1)),2,1000)
next
.[b1].resize(ubound(a))=a
end with
end sub