Guru do Excel e Power BI

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim wsHist As Worksheet, Rng As Range, ant, atu
  Set wsHist = Sheets("LogPlan")
   If Sh Is wsHist Then Exit Sub
   atu = Target.Formula
    On Error Resume Next
    Application.EnableEvents = False
     Application.Undo
     ant = Target.Formula: If Target.HasFormula Then ant = "'" & Target.FormulaLocal
     Target.Value = atu: If Target.HasFormula Then atu = "'" & Target.FormulaLocal
    Application.EnableEvents = True
     On Error GoTo 0
      Set Rng = wsHist.Range("A" & Rows.Count).End(xlUp).Offset(1)
       With Rng
        .Value = Now
        .Offset(, 1) = Sh.Name
        .Offset(, 2) = Target.Address
         If Target.Cells.Count > 1 Then
          .Offset(, 3) = "Valores Alterados"
         Else
          .Offset(, 3).Value = ant
          .Offset(, 4).Value = atu
         End If
       End With
End Sub

.Offset(, 3) = Environ("USERNAME") 'usuário que logou na máquina