code to delete table rows so more rows can then be entered

[dpaton05]

I have a table with a delete all rows button that is meant to delete all the rows so more rows can be added. In the past, it has deleted all the rows but left one blank row and this allowed me to add more rows but now when I press it, it deletes even the last row, leaving just the header.

How do I make it so there is still one row left, but it is blank when I press the button?

Here is the delete lines code:

Sub CostingDeleteAll()
    'Deleting The Data In A Table
    Dim tbl As ListObject
    Dim cell As Range
        Set tbl = ThisWorkbook.Worksheets("Costing_tool").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

Thanks

 

[Michael M]

If it has worked in the past AND you haven't made any modifications, it should work now !!
Has there been any changes to the layout of the "Costing Tool" Sheet

 

[DanteAmor]

it deletes even the last row, leaving just the header.

How do I make it so there is still one row left, but it is blank when I press the button?

So it does leave a row, but blank?
The last part of the macro deletes the contents of the cells, try this again:

Sub CostingDeleteAll()
  'Deleting The Data In A Table
  Dim tbl As ListObject
  Dim cell As Range
  Set tbl = ThisWorkbook.Worksheets("Costing_tool").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
  End With
End Sub

 

[dpaton05]

It doesn't leave anything except the header.

 

[dpaton05]

Thanks for the code Dante, I will try it when I get back to work on Wednesday.

 

[DanteAmor]

It doesn't leave anything except the header.

I did the test with a table and that macro leaves the header and a line.