Inputbox For Insert Rows

Sub AddRows()
Dim r As Long
For r = Cells(Rows.Count, 6).End(xlUp).Row To 2 Step -1
If Cells(r, 6) <> Cells(r - 1, 6) Then Rows(r).Insert Shift:=xlDown
Next r
End Sub

but find it somewhat unflexible. I don't always use the same column reference to determine where to add the rows. I was hoping someone would be able to integrate the inputbox usage that is in this delete rows code I got here

'Get the relative column number where the criteria should be found
lCol = Application.InputBox(Prompt:="Type in the relative number of the column where " _
& "the criteria can be found.", Title:="CONDITIONAL ROW DELETION COLUMN NUMBER", Type:=1)

I am wanting to run an insert row macro and it prompt me asking what column I want to reference. Whenever there is a change in that column, insert a row.