clique com o botão direito na aba que quer a ação e selecione "Exibir Código" e cole o código abaixo.

   Private Sub Worksheet_Change(ByVal Target As Range)

        If Target.Cells.Count <> 1 Then Exit Sub
        If Intersect(Target, Range("B2:B54")) Is Nothing Then Exit Sub
       
        Application.EnableEvents = False

        If Target <> "" Then
            Cells(Target.Row, 5).Value = Date & " " & Time
        Else
            Cells(Target.Row, 5).Value = ""
       
        End If
            Application.EnableEvents = True
           
    End Sub