Dear Team,
I changed the delete button code to
Private Sub CommandButton5_Click()
'For delete the customers
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Customer Data")
Dim Selected_Row As Long
Selected_Row = Application.WorksheetFunction.Match(Me.customername.Value, sh.Range("B:B"), 0)
sh.Range("B" & Selected_Row).EntireRow.Delete
Dim sh1 As Worksheet
Set sh1 = ThisWorkbook.Sheets("Master data")
Dim Selected_Row1 As Long
Selected_Row1 = Application.WorksheetFunction.Match(Me.customername.Value, sh1.Range("B:B"), 0)
sh1.Range("B" & Selected_Row1).EntireRow.Delete
Call Clear
End Sub
Now my search button is working properly even if i delete any values.