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:

 ws.AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Copy
    Sheets("Temp").Range("A1").End(xlUp).Offset(0, 0).PasteSpecial Paste:=xlPasteValues

    Sheets("Temp").Columns(1).SpecialCells(xlCellTypeVisible).AdvancedFilter Action:=xlFilterCopy, copytorange:=Sheets("Temp").Range("B1"), Unique:=True

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.