Delete the all chosed column which is selected in combo box!!!!!!!!!!!!!

Hi Experts,

I wrote a code below, It works like that the choosed text is deleted from Excel sheet. But to delete it I have to click CommandButton2 every time.
I want that when I click command button once it should be delete all column which is choosed in combo box. It is urgent please help me rapidly.

Private Sub CommandButton2_Click()
Dim s As String
s = ComboBox2.Text

For i = 1 To 100
    If Range("b" & i).Value = s Then
    Rows([i]).EntireRow.Delete
    
    End If
    
Next i
Next i
End Sub

Maybe

Private Sub CommandButton2_Click()
Dim s As String, lastrow As Long
s = ComboBox2.Text
lastrow = Range("B" & Rows.Count).End(xlUp).Row
For i = lastrow To 1 Step -1
    If Range("b" & i).Value = s Then
        Rows([i]).EntireRow.Delete
    End If
Next i
End Sub

Kind regards
Leo

Thanks Leo, It worked.