Delete all rows in a table

[dpaton05]

I want to delete all the rows in an excel table except the first and clear the contents, but not delete the formulas in the row. Can someone help me with the excel code.

The sheet is called home and the table is called tblCosting.

Thanks,
Dave

 

[ZVI]

Hi.
Try this:

Sub ClearTable()
  Worksheets("Home").ListObjects("tblCosting").DataBodyRange.Delete
End Sub

 

[DanteAmor]

Try:

Sub ResetTable()
    'Deleting The Data In A Table
    Dim tbl As ListObject
    Dim cell As Range
    
    Set tbl = Sheets("home").ListObjects("tblCosting")
    'Delete all table rows except first row
    With tbl.DataBodyRange
        If .Rows.Count > 1 Then
            .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
        End If
        'Clear the contents, but not delete the formulas
        For Each cell In tbl.ListRows(1).Range.Cells
            If Not cell.HasFormula Then
                cell.Value = ""
            End If
        Next
    End With


End Sub