Сделать таблицу?.. А самой/самому поискать?.. Как варианты:  
- http://www.planetaexcel.ru/forum.php?thread_id=31146  
- http://www.planetaexcel.ru/forum.php?thread_id=23083  
- ...

{quote}{login=Яна}{date=19.07.2012 08:56}{thema=Присвоение порядкового номера}{post}Заранее очень благодарю за любые предложения!{/post}{/quote}  
За приглашение замуж будете благодарить? :)  
 
Народ, Вы не поняли представителя прекрасной половины. Нумерация по порядку вставки дат, но не по возрастанию по строкам.  
 
Ячейки нужно обязательно разъединить.  
 
В модуль листа:  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Dim maksA As Byte, i&  
   If Target.Cells.Count > 1 Then Exit Sub  
   If Not Application.Intersect(Range("P5:P18"), Target) Is Nothing Then  
       maksA = Application.WorksheetFunction.Max(Range("A5:A18"))  
       Select Case ActiveCell.Value  
           Case "" ' если в ячейке даты нет  
               ActiveCell.Value = Date ' пишем дату  
               ActiveCell.Offset(, -15).Value = maksA + 1 ' пишем номер  
           Case Else ' если дата есть  
               If ActiveCell.Value <> Date Then Exit Sub ' даты не сегодняшние не убираем  
               ActiveCell.Value = "" ' убираем дату  
               For i = 5 To 18 ' уменьшаем на единицу  
                   If Cells(i, 1).Value > Cells(ActiveCell.Row, 1).Value Then _  
                                           Cells(i, 1).Value = Cells(i, 1).Value - 1  
               Next i  
               Cells(ActiveCell.Row, 1).Value = "" ' убираем номер  
           End Select  
   End If  
End Sub  
 
При выделении ячейки диапазона дат вставляется дата (сегодня), в первом столбце нумеруются записи. При выделении ячейки с сегодняшней датой ячейка очищается и корректируется нумерация. Если дата не сегодня - ничего не изменяется.