Copy & Paste Columns to Specific Range while Removing Blanks & Duplicates

Originally Posted by dondada82

Sub Marco1 ()
     Range("S2:AV100").Select       'Selection range that I'm copying is S2:AV100
     Selection.Copy
     Range ("Panels").Select           'Range pasting to is panels
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _ 
          False, Transpose:=True           'Special Paste values only
     Application.CutCopyMode = False

     Activesheet.Range("Panels").RemoveDuplicates Column:=Array(1,2), Header:=xlNo    'Remove all duplicate values this doesn't work

End Sub

Your code is confusing, better upload a small sample workbook with before/after.