Смятам, че това "EXEL" в заглавието на темата всъщност е excel. И изхождайки от това защо не опиташ със сортиране? Така се местят клетките без промяна на формат и т.н.
а ето и един макрос, ако държиш да стане по програмен път
ако в колона С от 1 до 8 ред са ти датите
а в D са ти клетките с коментарите опитай това

Range("C1:D8").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom