<div>
I just need the formula to go into D2 to end of used row of A for the Emp_tmp sheet.<br />
<br />
<br />
&nbsp; &nbsp; With Sheets(&quot;Emp_tmp&quot;)<br />
&nbsp; &nbsp; &nbsp; &nbsp;With .Range(&quot;D2:D&quot; &amp;&nbsp;.Cells(.Rows.Count, &quot;A&quot;).End(xlUp).Row)<br />
&nbsp; &nbsp; &nbsp; .Formula = &quot;=sum(B2:D2)&quot;
</div>


<div>
<div class="content wysiwyg-content">
the line for total.formula is entering a sum in ALL of the rows in the column - not just the one with a value. &nbsp;I need for it to just populate the row with a value in A2. &nbsp;Can someone help please.<br />
<br />
Application.Calculation = xlCalculationManual<br />
Set r = Sheet19.Range(&quot;A2:D2&quot;) <br />
Set headr = Sheet19.Range(&quot;A2:D2&quot;) <br />
Set dest = Worksheets(&quot;Exceptions&quot;).R<wbr />ange(&quot;A2&quot;)<wbr /><br />
Set total = Sheet19.Range(&quot;A2&quot;) <br />
Set total = Range(total, total.End(xlDown)).Offset(<wbr />0, 4)<br />
total.Formula = &quot;=sum(B2:D2)&quot;
</div>
</div>


the line for total.formula is entering a sum in ALL of the rows in the column - not just the one with a value.  I need for it to just populate the row with a value in A2.  Can someone help please.

Application.Calculation = xlCalculationManual
Set r = Sheet19.Range("A2:D2") 
Set headr = Sheet19.Range("A2:D2") 
Set dest = Worksheets("Exceptions").Range("A2")
Set total = Sheet19.Range("A2") 
Set total = Range(total, total.End(xlDown)).Offset(0, 4)
total.Formula = "=sum(B2:D2)"

I just need the formula to go into D2 to end of used row of A for the Emp_tmp sheet.


    With Sheets(&quot;Emp_tmp&quot;)
       With .Range(&quot;D2:D&quot; &amp; .Cells(.Rows.Count, &quot;A&quot;).End(xlUp).Row)
      .Formula = &quot;=sum(B2:D2)&quot;

Formula not stopping at end of populated row

the line for total.formula is entering a sum in ALL of the rows in the column - not just the one with a value.  I need for it to just populate the row with a value in A2.  Can someone help please.

Application.Calculation = xlCalculationManual
Set r = Sheet19.Range(&quot;A2:D2&quot;) 
Set headr = Sheet19.Range(&quot;A2:D2&quot;) 
Set dest = Worksheets(&quot;Exceptions&quot;).Range(&quot;A2&quot;)
Set total = Sheet19.Range(&quot;A2&quot;) 
Set total = Range(total, total.End(xlDown)).Offset(0, 4)
total.Formula = &quot;=sum(B2:D2)&quot;

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.