Delete all rows till end of table except first one.

[wjeil]

Hello,

I want to delete in a table every row except the first one. If i do it with a macro i get:
Range("M3").Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ListObject.ListRows(2).Delete
Selection.ListObject.ListRows(2).Delete
Selection.ListObject.ListRows(2).Delete
Selection.ListObject.ListRows(2).Delete

And Selection.ListObject.ListRows(2).Delete goes on for every line. How can i do this more efficient?

 

[NoSparks]

A site for info on tables

The VBA Guide To ListObject Excel Tables

For a data analyst, Excel Tables are a necessity! They are the most efficient way to organize your raw data and refer to data that contracts or expands on a regular basis. Likewise, Excel tables can be extremely useful in combination with VBA.

www.thespreadsheetguru.com

 

[wjeil]

Very useful guide. Thanks