Sort VBA malfunction

[Pinus]

I everybody,

I have a very simple code to sort, but it only sort's a few columns and others, that are in the range are not sorted.

This is the code:



Sub Sortbyhorario()




Dim escalasheet As Worksheet
Set escalasheet = ThisWorkbook.Sheets("Escalas")


[sortAREA].Select
Selection.Sort key1:=[sorthorarioheader].End(xlDown), _
order1:=xlAscending, Header:=xlYes


End Sub

[sortAREA] - is the range of the sort
[sorthorarioheader] - is the range of the header

Can you help me?