Extract unique values...with a twist

Try

Sub test()
    Dim e
    For Each e In Array("A", "C")
        Range(e & "2:" & e & Cells.SpecialCells(11).Row).Copy Range("s" & Rows.Count).End(xlUp)(2)
    Next
    Columns("s").RemoveDuplicates 1, 0
End Sub

This works wonderfully, except the headings of the columns are also in the 'Unique' column.