Code not through an error when deleting a row and the row is empty

[dpaton05]

I have a button that deletes a row at a time but when it gets down to nothing left, as in, nothing in the last row, what do I need to add to this code to make it stop displaying an error of "no cells found" when it is trying to delete the last row and it has nothing in it. How do I stop that error appearing?

The code is:

   Dim ans As Long
    With ActiveSheet.ListObjects("tblCosting").DataBodyRange
        ans = .Rows.Count
        If ans > 1 Then .Rows(ans).Delete
        If ans = 1 Then .Rows(1).Cells.SpecialCells(xlCellTypeConstants).ClearContents
    End With

 

[Joe4]

Duplicate: https://www.mrexcel.com/forum/excel-questions/1081529-how-suppress-error-message.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).