title: Macro doesn't update
body: <p>I have a macro to add the time when a cell is change in  Sheet1(macro 1), but it doesn't update automatically.
  If I enter a value manualy, the macro works.
  I have another macro to copy form sheet2 to sheet1(macro2) the macro1 doesn't work.
  Someone can help me to understand the issue?</p>
  <pre><code>Sub Worksheet_Change(ByVal Target As Range)
      Dim rInt As Range
      Dim rCell As Range
      Dim tCell As Range
  
      Set rInt = Intersect(Target, Range(&quot;tbl_summary[Request ID]&quot;))
      If Not rInt Is Nothing Then
          For Each rCell In rInt
              Set tCell = rCell.Offset(0, -2)
              If IsEmpty(tCell) Then
                  tCell = Now
                  tCell.NumberFormat = &quot;mmm d, yy   hh:mm&quot;
              End If
          Next
      End If
  End Sub
  </code></pre>
  <p><strong>here is the code to copy and paste the values</strong></p>
  <pre><code>Public Sub Move_AssignedWork()
      Dim lRowF As Long
  
      ThisWorkbook.Activate
      lRowF = ShWorkSummary.Cells(ShWorkSummary.Rows.Count, 6).End(xlUp).Row
      lRowF = lRowF + 1
      
      Worksheets(&quot;MoveItems&quot;).Select
      With ActiveSheet.ListObjects(&quot;Tbl_template&quot;)
          .Range.AutoFilter Field:=20, Criteria1:=&quot;Sent&quot;
          Union(.ListColumns(1).DataBodyRange, _
              .ListColumns(2).DataBodyRange, _
              .ListColumns(3).DataBodyRange, _
              .ListColumns(4).DataBodyRange, _
              .ListColumns(12).DataBodyRange, _
              .ListColumns(13).DataBodyRange, _
              .ListColumns(14).DataBodyRange, _
              .ListColumns(15).DataBodyRange, _
              .ListColumns(16).DataBodyRange, _
              .ListColumns(17).DataBodyRange, _
              .ListColumns(18).DataBodyRange, _
              .ListColumns(19).DataBodyRange).Copy
      End With
  
      ShWorkSummary.Select
      Range(&quot;D&quot; &amp; lRowF).PasteSpecial Paste:=xlPasteValues
        
      Worksheets(&quot;MoveItems&quot;).Select
      With ActiveSheet.ListObjects(&quot;Tbl_template&quot;)
          .Range.AutoFilter Field:=20
      End With
      
  End Sub
  </code></pre>