say data in A1:a8 (need to accomodate additional rows for line inserts)
Sub Macro1()
DATA = Sheets("sheet1").Range("a1:a25")
crow = 1
For Each LDATA In DATA
If Range("A" & crow)<> Range("A" & crow + 1) Then
Rows(crow + 1 & ":" & crow + 1).Select
Selection.Insert Shift:=xlDown
crow = crow + 2
GoTo 99
End If
crow = crow + 1
99
Next LDATA
End Sub
_________________
LASW10
This message was edited by lasw10 on 2002-10-15 06:52