Insert Blank row at change in a given Column
 

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

Insert Blank row at change in a given Column
 

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


"Karthik" wrote:

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