Macro for sorting range when range is continuously changing

Hello

This should work.......

Sub SortDates()

Range("A5", Range("A65536").End(xlUp).Offset(0, 19)).Sort Key1:=Range("L5"), _
    Order1:=xlAscending, Header:=xlNo

End Sub

Cheers

Jim