Advanced filter code

I've got a line of code that's not working the way I want it to, though it has for months. I've cleaned my project with Code Cleaner and still can't get it to work right. Here's the errant code:

Please Login or Register  to view this content.

it's doing the first part just right, copying the range from WS to Temp. In the next line I want to copy what's now in Temp column 1 and paste just the unique values to column 2, but my code is just skipping right over that line. Any help would be greatly appreciated.

I've found what I think is the root of the problem; it's in the first line, where it copies from WS. For some reason it's not copying the title, so what's pasted in Temp begins on B2 instead of B1 (there's a blank in B1).

WS B1 has a Title ("Division"), but there's also a command button that covers most of that cell. Could that be the problem?