Delete excel rows in selected range that match a specific column value

excel-delete-rows.vbs

Sub DeleteRowsOnSelectedRangeThatMatch()

    Application.ScreenUpdating = False
    
    Dim SelectedRange As Range
    Set SelectedRange = Selection
    
    RowCount = SelectedRange.Rows.Count
    
    FirstRowIndex = CInt(Split(SelectedRange.Cells(1).Address, "$")(2))
    LastRowIndex = FirstRowIndex + (RowCount - 1)
    
    ' Change these values
    FilterColumn = "B"
    SearchValue = ""
    
    For i = LastRowIndex To FirstRowIndex Step -1
        If Cells(i, FilterColumn).Value = SearchValue Then
            Rows(i).Delete
            ' MsgBox Cells(i, FilterColumn).Value
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub