I created a button to run the macro listed below. I had help with the forum with the macro. I would like to add a line to it to delete the button once the macro has run. I would appreciate it very much.


Sub DeleteRows()
    Dim lFirstRow As Long, llastRow As Long

    lFirstRow = Sheet1.Range("B:D").Find(what:="Total Cost").Row + 3
    llastRow = Sheet1.Range("A:A").Find(what:="Terms:").Row - 2
    Sheet1.Range("A" & lFirstRow & ":A" & llastRow).EntireRow.Delete

End Sub