Delete specific number of rows for each column with user input

.
See if this does what you are seeking ...

Option Explicit

Sub findCol()
Dim col As String, cfind As Range
Dim LastRow As Range
Dim rng As Range
Dim i As Long
    
col = InputBox("Enter Column Name ...", "Find Column")

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

cfind.Select
  
Set rng = Range(ActiveCell, ActiveCell.Offset(50, 0))
    With rng
        ' Loop through all cells of the range
        ' Loop backwards, hence the "Step -1"
        For i = .Rows.Count To 1 Step -1
            If .Item(i) = "" Then
                ' Since cell is empty, delete the whole row
                .Item(i).Delete
            End If
        Next i
    End With
End Sub

Example workbook attached ...