VBA-Code anpassen

Private Sub ButtonLoeschen_Click()
Dim rngZelle As Range
If ComboBox1.Value = "" Then
MsgBox "Es wurde kein Artikelnummer eingetragen!"
Me.ComboBox1.SetFocus
Exit Sub
Else
With Worksheets("Sortiment")
Set rngZelle = .Columns(2).Find((ComboBox1), lookat:=xlWhole)
If Not rngZelle Is Nothing Then
.Rows(rngZelle.row).ClearContents 'shift:=xlUp
MsgBox "Artikel gelöscht!"
Else
MsgBox "Es wurde keine übereinstimmende Artikelnummer gefunden!"
End If
End With
'Set rngZelle = Nothing
Unload Me
End If
End Sub