title: Need a macro to copy specific cells from a row in one worksheet to a specific cells in another worksheet base upon a data in the cell
body: <p>I am working on a workbook for my business.</p>
  
  <p><img src="https://i1237.photobucket.com/albums/ff463/tserberis/376373_758927226971_2141590456_n.gif" alt="Trip Logs"></p>
  
  <p>Would like to get a Macro going to copy data from a few cells in a row (cell through  C to G) of one worksheet to another worksheet row (cells A,B,C,F,G).</p>
  
  <p>The catch is, they need to be only transferred if D column has data entered.</p>
  
  <p><img src="https://i1237.photobucket.com/albums/ff463/tserberis/376373_758927226971_2141590457_n.gif" alt="Driver Reimbursement"></p>
  
  <p>I'm unable to properly use code that Alex P wrote for a somewhat similar problem:</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
      Dim nextRow As Long
      If Not Intersect(Target, Range("D:D")) Is Nothing Then
          If VBA.IsDate(Target) Then
              With Worksheets("Sheet2")
                  nextRow = IIf(VBA.IsEmpty(.Range("A1048576").End(xlUp)), 1, .Range("A1048576").End(xlUp).Row + 1)
                  .Range("A" &amp; nextRow) = Target.Offset(0, -3)
                  .Range("B" &amp; nextRow) = Target.Offset(0, -1)
                  .Range("C" &amp; nextRow) = Target
              End With
          End If
      End If
  End Sub
  </code></pre>