インプットボックスフィルター

Sub delete()

　Dim wrk As String

　wrk = InputBox("文字列を入力してください")

　With Range("A1")
　　.AutoFilter
　　.AutoFilter field:=1, Criteria1:=wrk
　　.CurrentRegion.Offset(1, 0).EntireRow.delete
　　.AutoFilter
　End With

End Sub

 InputBoxに入力された文字列でフィルターをかけて対象行を削除する。