Clear an Excel table with a Macro

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Here you go:

Option Explicit

Sub sClearTable()

With Sheets("Sheet1").ListObjects("TableRadBadges").DataBodyRange
    .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
    .Offset(0)(1, 1).Resize(1, 14).ClearContents
End With

End Sub

Sub sClearTable_Test()

With Sheets("Sheet1").ListObjects("TableRadBadges").DataBodyRange

'    Debug.Print .Rows.Count
'    Debug.Print .Offset(0).Address
'    Debug.Print .Offset(1).Address
'    Debug.Print .Offset(1).Resize(.Rows.Count - 1).Address
'    Debug.Print .Offset(0)(1, 1).Address
'    Debug.Print .Offset(0)(1, 1).Resize(1, 14).Address

' the next two rows are what you need
    .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
    .Offset(0)(1, 1).Resize(1, 14).ClearContents
End With

End Sub

You're welcome. Thanks for the rep.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.