Not sure I'm following you. Especially about the user selections. Maybe you can refine my first code with this code. Or let me know what needs to be changed.

Sub titushanke2()

Dim rcell As Range

On Error Resume Next

For Each rcell In Sheets("CONFIG").Range("B10:B20")

    If rcell.Value <> "" Then

        Sheets("INPUT").Select
    
            With Columns("B")
                .Replace rcell.Value, "", xlWhole
                .SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlShiftUp)
            End With

    End If

Next rcell

End Sub