Sub Addrows()

RowCount = 1
Do While Range("A" & RowCount) < ""
If Range("A" & RowCount) < Range("A" & (RowCount + 1)) Then
Rows(RowCount + 1).Insert
RowCount = RowCount + 2
Else
RowCount = RowCount + 1
End If
Loop

End Sub

" wrote:

I want to be able to go down column A in a worksheet and if the next entry is
not the same as the previous, I want to put a line between the two rows. How
would I go about doing this?

Thanks

Adam Bush