Remove rows with custom data in a column

Does this help?

Sub titushanke()
Dim x As String
Dim y As String
x = InputBox("Please Enter An Item to Delete")
y = InputBox("Please Enter An Item to Delete")

Sheets("INPUT").Select
    Range("A1").Select
  With Columns("D")
    .Replace x, "", xlWhole
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlShiftUp)
  End With
  With Columns("D")
    .Replace y, "", xlWhole
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlShiftUp)
  End With
End Sub