Solved: Error 1004 when trying to sort data

[marreco]

Hi.
The code below should run on the worksheet "Motivos_Calc" but I'm having an error at runtime

[VBA]Sub CopySort()
Sheets("Motivos_Calc").Range("G1:I11").Copy Destination:=Sheets("Motivos_Calc").Range("K1")
Range("K1:M11").Select
Call SortUniq
End Sub

Sub SortUniq()
With Sheets("Motivos_Calc").Sort
.SortFields.Clear
.SortFields.Add Range("L1"), xlSortOnValues, xlAscending
.SortFields.Add Range("K1")
.SetRange ActiveSheet.Cells(1).CurrentRegion
.Header = xlYes
.Apply <--Erro 1004
End With

End Sub
[/VBA]

Run-time error '1004 ':
The reference classification is not valid. sure if the reference
is among the data you want to sort and box the first
Sort is the same or is blank

[mancubus]

hi.

change
[VBA].SetRange ActiveSheet.Cells(1).CurrentRegion[/VBA]

to
[VBA].SetRange Range("K1:M11")[/VBA]

which is your sort range.

[marreco]

Hi.

was perfect!!

thank you very much!!

[mancubus]

you are wellcome.