Insert rows in depending on criteria in variable columns

[Guest]

I would like to thank everyone in advance for looking into this for me.

I currently have a macro that inserts a blank row after every cell in column
A that changes. See below:

Tom
Tom
Tom
Dick
Dick
Harry
Harry
Harry

The macro would insert a row after the 3rd Tom, the 2nd Dick, and the third
Harry. I have come across the need to be able to pick which column I want the
macro to examine. Sometimes column A, sometimes AB, etc. Any suggestions?

Thanks again

Jeff

 

[Guest]

hi,
first think to come to mind....
you can use inputbox to prompt for parameters.
in this case it might be column letter.
but since you didn't post any code, i have no idea where
to put it or how to use it.

 

[Guest]

Sorry. Had it on my clipboard and everything. Here it is.

Sub InsertRows()
Dim cRows As Long
Dim i As Integer

For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(i, "A") <> Cells(i + 1, "A") Then
Cells(i + 1, "A").EntireRow.Insert
End If
Next i
End Sub