Option Explicit

Public sValue As String ' обьявляем переменную, а какую и зачем - не понятно.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ' срабатывание при изменении на листе
      If Sh.Name = "LOG" Then Exit Sub ' если изменения на листе LOG - выходим из макроса
      Dim sLastValue As String
      Dim lLastRow As Long
      With Sheets("LOG") ' sheets("LOG"). дальнейшие диапазоны с листа LOG.
          lLastRow = .Cells.SpecialCells(xlLastCell).Row + 1 ' назначаем переменной последнюю строку используемого диапазона листа + 1 строку
          If lLastRow = Rows.Count Then Exit Sub ' не совсем понятно, но думаю, что если значение переменной = общему кол-ву возможных строк, то выходим из макроса
          Application.ScreenUpdating = False: Application.EnableEvents = False 'отключаем обновление экрана и еще какую-то непонятную фигню
          .Cells(lLastRow, 1) = Cells(Target.Cells.Row, 1).Value
          .Cells(lLastRow, 2) = Cells(2, Target.Cells.Column).Value
          .Cells(lLastRow, 3) = Target.Value
      If Target.Count > 1 Then 'если выделено более одной ячейки то
              Dim rCell As Range, rRng As Range
              On Error Resume Next
              Set rRng = Intersect(Target, Sh.UsedRange): On Error GoTo 0 ' какое-то пересечение, но не совсем понятно
              If Not rRng Is Nothing Then ' тут тоже не понятно
                  For Each rCell In rRng ' перебор всех ячеек в диапазоне, но не понятно зачем
                      If Not IsError(Target) Then sLastValue = sLastValue & "," & rCell Else sLastValue = sLastValue & "," & "Err" ' тут вообще не понятно
                  Next rCell ' возвращаемся к перебору
                  sLastValue = Mid(sLastValue, 2) ' не понятно совсем
              Else
                  sLastValue = "" ' и тут тоже не понятно
             
      End If
          Else
              If Not IsError(Target) Then sLastValue = Target.Value Else sLastValue = "Err" ' и тут тоже не понятно
      End If
          .Cells(lLastRow, 4).NumberFormat = "@" ' и тут тоже не понятно
          .Cells(lLastRow, 4) = sLastValue ' и тут тоже не понятно
      End With
      Application.ScreenUpdating = True: Application.EnableEvents = True ' включаем то, что выключили )
End Sub

' все, что ниже не понятно зачем вообще нужно, но в источнике эти два макроса идут вместе )

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
      If Sh.Name = "LOG" Then Exit Sub
      If Target.Count > 1 Then
          Dim rCell As Range, rRng As Range
          On Error Resume Next
          Set rRng = Intersect(Target, Sh.UsedRange): On Error GoTo 0
          If rRng Is Nothing Then Exit Sub
          For Each rCell In rRng
              If Not IsError(rCell) Then sValue = sValue & "," & rCell Else sValue = sValue & "," & "Err"
          Next rCell
          sValue = Mid(sValue, 2)
      Else
          If Not IsError(Target) Then sValue = Target.Value Else sValue = "Err"
       
      End If
End Sub