Delete specific number of rows for each column with user input

.
This ?

Option Explicit

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).Select

Selection.Delete xlShiftUp

End Sub