Solved: Creating and Sorting a Dynamic Range

[Sock]

rows 40 and 41 contain headers?

if so:

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

Rows 38 and 39 contain headers (row 39 has some blank spaces, however, including in the "M" column)