Delete specific number of rows for each column with user input

I tried putting user input for deleting number of rows. But I'm not getting idea how to delete it for particular column. Please help

Sub deletion()
'
' 

Ab = Rows(1).Find("ab", LookIn:=xlValues).Column
ActiveCell.Select

Deletion = InputBox("How many rows to delete from top?")
    Deletion = Deletion + 2
        Rows("1:" & Deletion).Select
    Selection.Delete Shift:=xlUp

Bc = Rows(1).Find("bc", LookIn:=xlValues).Column

Deletion = InputBox("How many rows to delete from top?")
    Deletion = Deletion + 2
        Rows("1:" & Deletion).Select
    Selection.Delete Shift:=xlUp
End Sub