Macro for deleting all rows in table

[nicolewh]

I am having trouble deleting all the rows within a table. I have a table with an indefinite amount of rows of data. I want to select the table and delete all the rows of data in order to replace it with another indefinite amount of data. Here is the macro I recorded but it only deletes the first row. Any ideas?

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("Table8[A]").Select
Selection.ListObject.ListRows(1).Delete
End Sub

Thank you!

Nicole

 

[wigi]

Perhaps:

Selection.Cells(1).CurrentRange.EntireRow.Delete

Place your cursor in the tab. Please test this on a COPY OF YOUR FILE.

 

[nicolewh]

Just figured it out - I feel really good about myself . I adjusted your code and came up with this:

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("Table8[A]").Select
Selection.EntireRow.Delete
End Sub

Thanks
Nicole

 

[wigi]

Well done!

But this is sufficient:

Sub Macro2()
    Range("Table8[A]").EntireRow.Delete
End Sub

Select's only (marginally) slow down macro execution.

 

[nicolewh]

Thank you so much!

Nicole