do you really need all range variables for a simple sorting?

[VBA]Range("D40").CurrentRegion.Sort Key1:=Range("M40"), Order1:=xlAscending, Header:=xlGuess
[/VBA]