<div>
Why not format the data as Table and add a Total Row. Most of the code is simply formatting so Format the Table as you want and the formatting will copy down as data is added<br />
Excel Tables<a href="https://support.office.com/en-au/article/Use-Excel-tables-to-manage-information-1c3d9852-4b0b-4496-a1fc-30c5121fb05e" rel="ugc">Excel Tables</a><br />
<br />
This does not put a formula into the cell, just the result<br />
<br />

<pre><code id="code-20-40774054-1">Range(&quot;J&quot; &amp; LastRow) = WorksheetFunction.Sum(Range(&quot;J2:J&quot; &amp; LastRow - 1))LastRow = Cells(Cells.Rows.Count, &quot;J&quot;).End(xlUp).Row + 1
Range(&quot;J&quot; &amp; LastRow) = WorksheetFunction.Sum(Range(&quot;J2:J&quot; &amp; LastRow - 1))</code></pre>
<br />
This puts a formula in<br />
<br />

<pre><code id="code-20-40774054-2">LastRow = Cells(Cells.Rows.Count, &quot;J&quot;).End(xlUp).Row + 1
Range(&quot;J&quot; &amp; LastRow).FormulaR1C1= WorksheetFunction.Sum(Range(&quot;J2:J&quot; &amp; LastRow - 1))
&quot;=SUM(R[-1582]C:R[-1]C)&quot;</code></pre>
</div>


Why not format the data as Table and add a Total Row. Most of the code is simply formatting so Format the Table as you want and the formatting will copy down as data is added
Excel TablesExcel Tables [https://support.office.com/en-au/article/Use-Excel-tables-to-manage-information-1c3d9852-4b0b-4496-a1fc-30c5121fb05e]

This does not put a formula into the cell, just the result



Range("J" & LastRow) = WorksheetFunction.Sum(Range("J2:J" & LastRow - 1))LastRow = Cells(Cells.Rows.Count, "J").End(xlUp).Row + 1
Range("J" & LastRow) = WorksheetFunction.Sum(Range("J2:J" & LastRow - 1))


This puts a formula in



LastRow = Cells(Cells.Rows.Count, "J").End(xlUp).Row + 1
Range("J" & LastRow).FormulaR1C1= WorksheetFunction.Sum(Range("J2:J" & LastRow - 1))
"=SUM(R[-1582]C:R[-1]C)"

<div>
<div class="content wysiwyg-content">
The last few lines of Sub FORMATREPORT() should total the last two columns on Report tab - Ground Rates &amp;&nbsp;MWT Rates.<br />
All I get is an error, but not sure why. Can anyone help?<br />
<a href="https://filedb.experts-exchange.com/incoming/2015/05_w20/913725/test.xlsb" target="_blank" class="file-inline" title="test.xlsb (16.2 MB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>test.xlsb</a>
</div>
</div>


test.xlsb

The last few lines of Sub FORMATREPORT() should total the last two columns on Report tab - Ground Rates & MWT Rates.
All I get is an error, but not sure why. Can anyone help?

Total columns vba not working

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

Microsoft Excel

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.