DKY

one way:

Sub test()
Dim LastRow As Long
Dim i As Long
LastRow = Range("B65536").End(xlUp).Row
Application.ScreenUpdating = False
For i = LastRow To 2 Step -1
If Range("B" & i).Value < _
Range("B" & i - 1).Value Then
Range("B" & i).EntireRow.Insert
End If
Next 'i
Application.ScreenUpdating = True
End Sub

Regards

Trevor


"DKY" wrote in message
...

I get this spreadsheet every week that I have to format and all, so I
recorded a macro. Something I have to do manually is go through all
the part numbers in columb B and find similar ones. I sort them by
column B, then I insert a blank row to seperate groups of part numbers.
Is there anyway to throw this in my macro? Have it sort by column b
then put a space after every seperate set of part numbers?


--
DKY
------------------------------------------------------------------------
DKY's Profile:
http://www.excelforum.com/member.php...o&userid=14515
View this thread: http://www.excelforum.com/showthread...hreadid=262505