Hi

I currently have data in columns A - J.

I currently have a macro that separates the rows of data based on
variables (see below). What i need to incorporate into this is that
after each line is inserted to draw a line from Ax - Jx (where x is
the new row).



Sub Insert_Rows()

Rw = 2
LastRow = 20000

NxtChk:
If Cells(Rw, "B") < Cells(Rw + 1, "B") Then
Rows(Rw + 1).EntireRow.Insert

Rw = Rw + 1

NewRow = NewRow + 1
End If

If Rw = LastRow + NewRow Then Exit Sub
Rw = Rw + 1

GoTo NxtChk

ActiveWindow.DisplayGridlines = False

End Sub

Any help would be greatly appreciated.

Thanks
Neil