Greetings,

Did some research I found code to create a autosort macro, which should sort of today's date in cell A1, that way I always have the most recent entries at the top of my sheet. It will work fine for a while then all of a sudden it refuses to move the content of cell A5 (the first in the sort) to it's correctly sorted location.


 Range("A5:D200").Sort _
     Key1:=Range("A1"), order1:=xlDescending, Header:=xlGuess, _
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
     DataOption1:=xlSortNormal

Any help would be greatly appreciated