<div>
Does this have to be with VBA? Otherwise you can do this:<br />
- Select the top left data cell to be deleted<br />
- Hit Shift+Ctrl+Down<br />
- Hit Ctrl+-<br />
- Select entire row<br />
<br />
You will then see the unfiltered results minus the rows you've just deleted.<br />
<br />
Edit: To quickly get to the top left hit Ctrl+Up,Left (possibly a few times if you have empty cells) or alternatively Ctrl+Home but I typically find my hand over the arrow keys when I'm using Excel.
</div>


Does this have to be with VBA? Otherwise you can do this:
- Select the top left data cell to be deleted
- Hit Shift+Ctrl+Down
- Hit Ctrl+-
- Select entire row

You will then see the unfiltered results minus the rows you've just deleted.

Edit: To quickly get to the top left hit Ctrl+Up,Left (possibly a few times if you have empty cells) or alternatively Ctrl+Home but I typically find my hand over the arrow keys when I'm using Excel.

<div>
Angelp1ay, it has to be a macro to automatically perform these operations across multiple worksheets.<br />
<br />
Thanks
</div>


Angelp1ay, it has to be a macro to automatically perform these operations across multiple worksheets.

Thanks

<div>
<div class="content wysiwyg-content">
Hello Experts,<br />
<br />
I am trying to delete information in a table once it has been filtered.<br />
All the <b>visible</b> information that appears in the table after it was filtered has to be deleted (except for the header).<br />
<br />
I used the following code:<br />
Sheets(&quot;Initiative Summary&quot;).ListObjects(&quot;Ini<wbr />tiativeTbl<wbr />&quot;).listCol<wbr />umns(&quot;Func<wbr />tional Area&quot;).databodyrange.speci<wbr />alcells(xl<wbr />CellTypeVi<wbr />sible).Del<wbr />ete<br />
<br />
The code works fine unless the <b>first item</b> in the table is <b>invisible</b>. In this case it deletes the entire table including the header. <br />
<br />
Could you please help me fix this?<br />
<br />
Thanks
</div>
</div>


Hello Experts,

I am trying to delete information in a table once it has been filtered.
All the visible information that appears in the table after it was filtered has to be deleted (except for the header).

I used the following code:
Sheets("Initiative Summary").ListObjects("InitiativeTbl").listColumns("Functional Area").databodyrange.specialcells(xlCellTypeVisible).Delete

The code works fine unless the first item in the table is invisible. In this case it deletes the entire table including the header. 

Could you please help me fix this?

Thanks

Deleting rows in a table

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.

Microsoft Office

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Microsoft 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.