Delete specific number of rows for each column with user input

.
Slightly edited version. Eliminates one SELECT statement.

Sub findCol()
Dim col As String, cfind As Range
Dim condition_range As Range


col = InputBox("Enter Column Name ...", "Find Column")

Set cfind = Cells.Find(what:=col, lookat:=xlWhole)

cfind(3).Select

Set condition_range = Application.InputBox(Prompt:="Please Select or Enter Range", Type:=8)

Range(ActiveCell, condition_range).Delete xlShiftUp

End Sub