Copy Unique Cell and One Next To It?

[Joe Hughes]

I have a macro in a worksheet that copies unique cells in the A column to another column---AE---using this:

Sheets(a).Range("A11" & x).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets(a).Range("AE11"), Unique:=True

It works fine; however, at the same time it copies the unique cell, I would like it to copy the contents of the adjacent cell in the B column to the the AF column adjacent to AE.

Can someone help me with this?
Any help is most appreciated.

[snb]

Please Login or Register  to view this content.

[Joe Hughes]

Thanks, snb.
I can't get this to work, but I'll contunue trying variations.