Insert a row

N V Bhaskaran · Mar 30th 2003

I have a list of data with the information in column A sorted. I would like to insert three blank rows when the information in A changes. Could some one help me with a macro to do this?

Thanks.

yjoshi · Mar 30th 2003

Here comes the code.....

Code

Private Sub CommandButton1_Click()
Dim cell, rng As Range
Application.ScreenUpdating = False
Range("A65536").End(xlUp).Select
Do While ActiveCell.Row &gt; 1
    If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value _
       And ActiveCell.Value <> "" And _
       ActiveCell.Offset(-1, 0).Value <> "" Then
    For x = 1 To 3: ActiveCell.EntireRow.Insert: Next
    End If
    ActiveCell.Offset(-1, 0).Select
Loop


Application.ScreenUpdating = True
End Sub

Display More

Also attached a file for demo

Hope this helps

N V Bhaskaran · Mar 30th 2003

Thanks a lot! Your macro has helped.

Insert a row

Participate now!

Share