title: LOOP: Copy Cells Value (in a list) from one Sheet to Another
body: <p>The purpose of this macro is copy one cell value (from a long list) to another cell located in a different sheet.</p>
  
  <p>here's my code:</p>
  
  <pre><code>Sub journalben()
  
  Set rawben = Sheets("BEN")
  Set finaljnl = Sheets("JNL_BEN")
  
      Set Rng = Range("G2:G1048576")
      For Each cell In Rng
          'test if cell is empty
          If cell.Value &lt;&gt; "" Then
  
          finaljnl.Range("L4").Value = rawben.Range("G5").Value
          finaljnl.Range("K4").Value = rawben.Range("L5").Value
          End If
      Next
  End Sub
  </code></pre>
  
  <p>With the help of the image, I will explain what I'm trying to achieve:</p>
  
  <p><a href="https://i.stack.imgur.com/nHLGj.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/nHLGj.jpg" alt="macro"></a></p>
  
  <ol>
  <li>From Sheet1 ("BEN") there's a list sitting in columns G and L.</li>
  <li>I will copy the cell G5 from Sheet1 and paste it in Sheet2 ("JNL_BEN") Range K4.</li>
  <li>Next is I will copy the cell L5 from Sheet1 and paste it in Sheet2 ("JNL_BEN") Range L4.</li>
  <li>Copy the next in line and do the same process just like No.2 and 3 but this time, it will adjust 1 row below.</li>
  <li>Copy the whole list. That means up to the bottom. The list is <strong>dynamic</strong>, sometimes it will go for 5,000 rows.</li>
  </ol>
  
  <p>For some reasons, copying the entire column is not an option to this macro due to requirement that cells from sheet1 MUST be pasted or placed in Sheet2 from left to right (or horizontally).</p>
  
  <p>I hope you could spare some time to help me. My code didn't work, I guess the implementation of FOR EACH is not correct. I'm not sure if FOR EACH is the best code to use.</p>
  
  <p>I appreciate anyone's help on this. Thank you very much! May the force be with you.</p>