<div>
If you format the data as a Table then you don't need VBA to add a formula. You can have a total row which can automatically a a sum of total, or count, etc,which works as SubTotal
</div>


If you format the data as a Table then you don't need VBA to add a formula. You can have a total row which can automatically a a sum of total, or count, etc,which works as SubTotal

<div>
Hi Roy, I am ware of this fact and I normally always use tables, but in this special case I regrettably cannot use a table. <br />
<br />
Thank you, Roy, anyway.
</div>


Hi Roy, I am ware of this fact and I normally always use tables, but in this special case I regrettably cannot use a table.

Thank you, Roy, anyway.

<div>
Great Rgonzo, works as desired. Thank you very much for it. <br />
<br />
Regards, Andreas
</div>


Great Rgonzo, works as desired. Thank you very much for it.

Regards, Andreas

<div>
<div class="content wysiwyg-content">
Dear Experts: <br />
<br />
I would like to enter the formula in line 7 in another way, i.e. no hardcoding of the range. <br />
<br />
The Formula is to be entered into Column A, two cells below the last filled cell of the filtered list no matter how many rows there are. <br />
<br />
Help is much appreciated. Thank you very much in advance. <br />
<br />
Regards, Andreas<br />
<br />
<br />

<pre><code id="code-10-29014486-1">Sub Enter_SubTotal_End_of_Filtered_List()


    ThisWorkbook.Worksheets(&quot;3_Gesamtliste&quot;).Range(&quot;A1:M&quot; &amp; Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Row).AutoFilter Field:=4, Criteria1:=&quot;=&quot;
    
    
        Range(&quot;A13980&quot;).Formula = Application.WorksheetFunction.Subtotal(9, Range(&quot;A1:A&quot; &amp; Range(&quot;B&quot; &amp; Rows.Count).End(xlUp).Row))
      
  
End Sub</code></pre>
</div>
</div>


Dear Experts: 

I would like to enter the formula in line 7 in another way, i.e. no hardcoding of the range. 

The Formula is to be entered into Column A, two cells below the last filled cell of the filtered list no matter how many rows there are. 

Help is much appreciated. Thank you very much in advance. 

Regards, Andreas


(CODE)

Enter Formula into cell below filtered list using VBA

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.

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

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.