' это обработчик события изменений на листе, _
    Target - это диапазон, который был изменен
Private Sub Worksheet_Change(ByVal Target As Range)
' если изменили диапазон, состоящий более чем из одной ячейки, то выходим
      If Target.Cells.Count > 1 Then Exit Sub

      'тут ясно, что следим за изменениями в столбце А. Хотелось бы подробней...
      '...пересечение Таргета с первым столбцом не есть ничто, _
        т.е., есть что-то, т.е., Таргет пересекается с 1-м столбцом
      If Not Intersect(Target, Range("A:A")) Is Nothing Then
          '''If Target.Column = 1 Then ' я бы так написал, т.к. Таргет - это одна ячейка, на этой строчке уже точно!

          With Target(1, 5)  'тут указываем ячейку, куда будут вводиться результат вычисления следующей строки
              ' Target(1, 5) - трудноинтерпретируемое выражение, для меня во всяком случае. _
                 более осмысленно было бы: Target.Offset(0,4) _
                 или Target.Offset(,4)   <-- это тот же х... только сбоку  

              'строка (***) вызовет этот обработчик еще раз, я думаю, это не планировалось, _
                поэтому здесь нужно отключить события
              Application.EnableEvents = False    ' <==================
              .Value = Now   'если по-русски, то =ТДАТА()               (***)
              Application.EnableEvents = True    ' <================== включаем обратно!

              Columns("e:e").NumberFormat = "[$-F400]h:mm:ss AM/PM"  'формат ячеек столбца Е - время (ч,мм,сс). Только вот что значит [$-F400]?
              .EntireColumn.AutoFit   'автовыравнивание   (АВТОПОДБОР ШИРИНЫ СТОЛБЦА)
          End With

          With Target(1, 6)
              Application.EnableEvents = False    ' <==================
              .Value = Now
              Application.EnableEvents = True    ' <================== включаем обратно!
              Columns("f:f").NumberFormat = "d/m/yyyy"  'формат ячеек столбца F - дата (д,м,ггг)
              .EntireColumn.AutoFit
              ' Columns("f:f") в этом контексте идентично .EntireColumn _
               при каждом изменении листа каждый раз задавать формат одного и того же столбца _
               это неразумно, меняй формат только одной ячейки
          End With
      End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Cells.Count > 1 Then Exit Sub

      If Target.Column = 1 Then
          Application.EnableEvents = False
          With Target
              With .Offset(, 4)
                  .Value = Time
                  .NumberFormat = "[$-F400]h:mm:ss AM/PM"
                  .EntireColumn.AutoFit
              End With
                
              With .Offset(, 5)
                  .Value = Date
                  .NumberFormat = "d/m/yyyy"
                  .EntireColumn.AutoFit
              End With
          End With
          Application.EnableEvents = True
      End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)   ' обработка события изменения на листе
    If Target.Cells.Count > 1 Then Exit Sub   ' если изменение было больше, чем в одной ячейке - выход
' дальше Target - это одна ячейка
    If Target.Column = 1 Then   ' если Target (изменение на листе) в первом столбце (столбце А)
       Application.EnableEvents = False   ' запретить обработку событий чтобы производимые далее изменения на листе не приводили к повторному циклическому вызову этой же процедуры
       With Target.Offset(0, 4)   ' в ячейке, сдвинутой от ячейки Target на 0 строк и 4 столбца (т.е. с столбце Е)
          .Value = Time   ' значение - текущее время
          .NumberFormat = "h:mm:ss"   ' формат представления чисел в ячейке (время в 24-часовом формате ч:мм:сс)
          .EntireColumn.AutoFit   ' во всём столбце установить выравнивание "Автоподбор ширины"
       End With

       With Target.Offset(0, 5)  ' в ячейке, сдвинутой от ячейки Target на 0 строк и 5 столбцов (т.е. с столбце F)
          .Value = Date  ' значение - текущая дата
          .NumberFormat = "d/m/yyyy"   ' формат представления чисел в ячейке (дата Д.М.ГГГГ)
          .EntireColumn.AutoFit  ' во всём столбце установить выравнивание "Автоподбор ширины"
       End With
       Application.EnableEvents = True   ' разрешить обработку событий
    End If
End Sub

If Not Intersect(Target, Range("A:A")) Is Nothing Then

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A:A")) Is Nothing Then

With Target(1, 5)

With Target.Offset(0, 4)

Private Sub Worksheet_Change(ByVal Target As Range)
'тут не совсем понятно
''''target --грубо говоря --копия ячеек, измененных на данном листе

Debug.Print Target.Row, Target.Column
If Target.Cells.Count > 1 Then Exit Sub
'тут совсем не понятно
''если выделено более 1 ячейки--выход
If Not Intersect(Target, Range("A:A")) Is Nothing Then
'тут ясно, что следим за изменениями в столбце А. Хотелось бы подробней
''если диапазон а:а не выделен   --выход  
''
   With Target(1, 5)
   'тут указываем ячейку, куда будут вводиться результат вычисления следующей строки
   '''''''''' причем 1,5 означает вывод
''1--в первую строку таргета
''5--столбец
'''''''''''''''''''''''''''''''
   .Value = Now
   'если по-русски, то =ТДАТА()
   'Columns ("e:e")   '''не нужна
   .NumberFormat = "[$-F400]h:mm:ss AM/PM"
   'формат ячеек столбца Е - время (ч,мм,сс). Только вот что значит [$-F400]?
   '''вы запросили формат--только время
   .EntireColumn.AutoFit
   'автовыравнивание
   End With
   '''''''''''''''''''''''''''''''
   With Target(1, 6)                    '
   .Value = Now                    '
   'Columns("f:f")    '''не нужна
   .NumberFormat = "d/m/yyyy"
   'формат ячеек столбца F - дата (д,м,ггг)
   ''здесь формат день(1 или 2 цифры), месяц (1 или 2) и год(4)
   .EntireColumn.AutoFit                    '
   End With
End If
End Sub