It's returning a r/t 1004 - The extracted range has a missing or illegal
field name
message << maybe just under certaini conditions,, my current problem (when
I'm getting the error message occurs when --
My Seleted range includes 25 numbers formatted as test (sorted ascending with
duplicated numbers)

Can someone spot my problem?
TIA,

Sub DumpUnique()
Dim rng As Range
If Selection.Columns.Count 1 Then
MsgBox "You can only select One Column of Cells, Try again."
Exit Sub
End If
If Selection.Row = 1 Then
MsgBox "Your Selection cannot include Row 1, Try again."
Exit Sub
End If
TLocation = InputBox("To What Cell do I drop the Unique data")
Set rng = Selection.Offset(-1, 0) _
.Resize(Selection.Rows.Count + 1, 1)
rng(1).Value = "TempHeader"
rng.AdvancedFilter Action:=xlFilterCopy, _ ' Is bombing here !!!
CopyToRange:=Range(TLocation), Unique:=True
rng(1).Value = ""
Range(TLocation).CurrentRegion.Sort Key1:=Range(TLocation), _
Order1:=xlAscending, Header:=xlYes
Range(TLocation).Delete shift:=xlUp
End Sub