I have an auto sort macro that arranges entries based on the date placed in the column.
Sub Sort_Macro()
Range("A25:O2000").Sort Key1:=Range("A26"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub...