Delete From Database With Userform

Using the code below, I search a database (Sheet1) on a pallet number and display in the listbox all the items on that pallet.

Assuming now that the pallet has been "worked" or despatched, what code would I use to delete that pallet and all its items from the database?


Private Sub cmdFindAllPal_Click() 'Find all Pallet
Dim FirstAddress As String
Dim strFind As String 'what to find
Dim rSearch As Range 'range to search
Dim fndA, fndB, fndC, fndD As String
Dim head1, head2, head3, head4 As String 'headings for list
Dim i As Integer
i = 1
Set rSearch = Sheet1.Range("b7", Range("b65536").End(xlUp))
strFind = Me.TextBox2.Value
With rSearch

Set c = .Find(strFind, LookIn:=xlValues, LookAt:=xlWhole)...........