CopyToRange with sort

[David0079]

Does anyone have any idea whats going wrong here? Have I got the syntax wrong somewhere?

        Sheets("Data").Columns("E:E").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("FA1"), Unique:=True
        
        Columns("FA1:FA").Select
        Selection.Sort Key1:=Range("FA:FA)
        Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Application.Goto Reference:="R1C1"
        
End Sub

 

[Jonmo1]

I think it's in this line

Columns("FA1:FA").Select

If you specify a row on either side of the : , you must specify a row on BOTH sides...

Try

                Sheets("Data").Columns("E:E").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("FA1"), Unique:=True
        
        Range("FA:FA").Sort Key1:=Range("FA:FA"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Application.Goto Reference:="R1C1"
        
End Sub

 

[David0079]

No, its still not working

 

[Jonmo1]

If the DESTINATION Range of the Unique Filter is already occupied, it will error.

Maybe you need to add a clear contents of that range first...
also, is this all happening on 1 sheet ("data"). You may need to qualify the sheet name in all the range/column refs...

This works for me....

Sheets("Data").Range("FA:FA").ClearContents
Sheets("Data").Columns("E:E").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Data").Range("FA1"), Unique:=True
        
Sheets("Data").Range("FA:FA").Sort Key1:=Sheets("Data").Range("FA:FA"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.Goto Reference:="R1C1"