I want a sub that will do a unique filter on a range and paste the results 2 colms to the right.

I tried:
Dim extractCol As Integer
extractCol = ActiveCell.Column + 2

Range(Selection, Selection.End(xlDown)).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Columns _
("c:c"), Unique:=True '<-- I AM IN COL A at the time

How can i use extractCol (would be 3 - for column C) in this formula,
I dont want to use a case or anything verbose.