Delete rows below dynamic data

[Vbalearning]

I am looking to delete rows below the last filled cell in a range. However column A might have 100 filled cells and B may have only 60, meaning the information I need is only rows 1 to 60. Columns where this happens may change but does anyone know a loop function that can detect the information I need and delete the rows below? The problem is I have multiple sheets where I use drag down formulas and some columns are becoming filled unnecessarily leaving column A for example over populated

 

[kalak]

I am looking to delete rows below the last filled cell in a range. However column A might have 100 filled cells and B may have only 60, meaning the information I need is only rows 1 to 60. Columns where this happens may change but does anyone know a loop function that can detect the information I need and delete the rows below? The problem is I have multiple sheets where I use drag down formulas and some columns are becoming filled unnecessarily leaving column A for example over populated

Here's a VBA with which you can choose a column.
Try on test data.
If this isn't what you want perhaps you might provide an example of what you do want.

Sub xzzx()

Dim q As Long

q = InputBox("Which column? (enter number)")
Range(Rows(Cells(Rows.Count, q).End(xlUp).Row)(2), Rows(Rows.Count)).Delete

End Sub