Insert Blank row at change in a given Column

[Karthik]

Hi All,

I would like to create a macro to insert a blank rows at every change
in a column. I also want to give the input box option to select the
column.

Thanks for the help!!

Regards,

Karthik

 

[Joel]

Sub addcol()

ColmLetter = InputBox("Enter column Letter : ")

Lastrow = Cells(Rows.Count, ColmLetter).End(xlUp).Row
For RowCount = Lastrow To 2 Step -1
If Range(ColmLetter & RowCount) <> _
Range(ColmLetter & (RowCount - 1)) Then

Rows(RowCount).Insert
End If
Next RowCount

End Sub