title: Trying to copy cells from column F if column E changes, only if column F > 0
body: <p>I'm using a macro assigned to Sheet1 to try and create a Macro that will copy the values in Column F if Column E changes to a certain value, by row specifically. The code debugs fine but doesn't seem to execute on a Worksheet_Change.</p>
  
  <p>Background: Also have macros set to run on open and close of workbook that list the current time ever 3 minutes in a particular cell. This current time is used to find out how long any given employee has been on the clock, given their start time. I want to copy their calculated time on the clock at the greatest point per person and actively sum that at any given moment for my supervisors.</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Not Intersect(Target, Range("E3:E75")) Is Nothing Then
  
  Dim Rng As Range
  
  Set Rng = Worksheets("Sheet1").Range("F3:F75")
  For Each cell In Rng
  If cell.Value &gt; 0 Then
      cell.Copy
  Rng("J" &amp; Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
  End If
  Next cell
  
  End If
  
  Application.CutCopyMode = False
  
  End Sub
  </code></pre>
  
  <p>I don't have an output, nothing is pasted into column J</p>