title: Copy the formula to another sheet and paste it as values to specific columns
body: <p>I am having trouble whenever i try to run this code. It works fine but when the other columns are empty it continuously run the formula. It must stop running the formula if the next columns are empty. How can i do that with my existing code. Thank you<br>
  please see my codes below.</p>
  
  <pre><code>     Sub L4FORMULA()
       Dim rngFor As Range
       Dim RNG1 As Range
       Dim LastRow As Long
  
       Application.Calculation = xlCalculationManual
       Set rngFor = Sheet2.Range("P2")
       Set RNG1 = Sheet2.Range("U2")
  
      Sheet4.Activate
  
      LastRow = Application.WorksheetFunction.CountA(Sheet1.Range("B:B"))
  
      rngFor.Copy Sheet4.Range("P2:P" &amp; LastRow)
      Sheet4.Range("P2:P" &amp; LastRow).Calculate
          Sheet4.Range("P2:P" &amp; LastRow).Value = Sheet4.Range("P2:P" &amp; LastRow).Value
  
      RNG1.Copy Sheet4.Range("U2:U" &amp; LastRow)
      Sheet4.Range("U2:U" &amp; LastRow).Calculate
          Sheet4.Range("U2:U" &amp; LastRow).Value = Sheet4.Range("U2:U" &amp; LastRow).Value
  
     Application.Calculation = xlCalculationAutomatic
     End Sub
  </code></pre>