Clear the contents of last row

[dpaton05]

I have a table and buttons to add and delete rows. It won't delete the last row of the table when there is just one row left and this is good as if it did, it would delete all the formulas from it. However, I do want to clear it of contents when it gets down to deleting the last row, but keep the formulas and data validation lists. How do I do this?

I have the following code in my delete button:

Private Sub cmdDeleteRow_Click()

Dim ans As Long
With ActiveSheet.ListObjects("npss_quote").DataBodyRange
ans = .Rows.Count
If ans > 1 Then .Rows(ans).Delete

End With


End Sub

 

[dpaton05]

Private Sub CommandButton1_Click()


Dim rng As Range

On Error Resume Next
With Selection.Cells(1)
Set rng = Intersect(.EntireRow, ActiveCell.ListObject.DataBodyRange)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "Please select a valid table cell.", vbCritical
Else
rng.Delete xlShiftUp
End If
End With


End Sub

 

[My Aswer Is This]

I thought you wanted Select part of script added to previous script I provided referring to adding and deleting rows.

I see nothing here referring to Table name you gave earlier.

 

[dpaton05]

Well, it seems to work for me. As I don't understand it, I couldn't tell you why.