rows 40 and 41 contain headers?

if so:

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