Advanced Filtering for Unique Records Issue

HI,

I am using an advanced filter to extract unique records from various columns of data. The filter is below:

'Extract list of unique entries
shSource.Range(sourceColumn & "11:" & sourceColumn & LR).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=shSetup.Range(destinationColumn & "1"), Unique:=True

The filter works fine but there is one issue. The filter starts filtering in row 11 which is the header row. Still OK but when the filter copies the unique records the header copied over is NOT the header of the column being filtered, sourceColumn, but rather the first non-empty header in row 11 which happens to be header for column B. I really need the header corresponding to the column being filtered copied over. Can anyone suggest how I can fix my code? Thank you.

The destination cell is blank initially.