Back

Sub Insert_row()
' Written by Barrie Davidson
Dim Number_of_rows As Long

   Number_of_rows = ActiveSheet.UsedRange.Rows.Count
   Range("A2").Select
   Do Until Selection.Row = Number_of_rows + 1
      If Selection.Value <> Selection.Offset(-1, 0).Value Then
         Selection.EntireRow.Insert
         Number_of_rows = Number_of_rows + 1
         Selection.Offset(2, 0).Select
      Else
         Selection.Offset(1, 0).Select
      End If
   Loop

End Sub

Copyright ^© 2001 by Barrie R. Davidson
Added April 6, 2001