Menší problém pri použití predchádzajúcich riešení nastane pri zmene viacerých buniek naraz (pri vložení cez Paste). V takom prípade sa čas nastaví len pre prvý riadok alebo vôbec.

Ak by som chcel určovať dátum vzniku riadku podľa zmeny v nejakom rozsahu (napr. B:F), tak by som použil niečo takéto:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aRange As Range
    Dim aRow As Range
    Dim aCell As Range
    
    Set aRange = Intersect(Target, Range("B:F"))
    If Not aRange Is Nothing Then
        For Each aRow In aRange.Rows
            Set aCell = aRow.EntireRow.Cells(1, 1)
            If aCell = "" Then
                aCell.Value = Now
            End If
        Next
    End If
End Sub