This works beautifully Trevor, I forgot to mention something though. I
have a header on row 3, and hide row 1 and 2. So.... I would like to
have the blank rows start at row 4 blank then part numbers then blank
row then part numbers. This code puts a blank row above my header on
row 3. How do I get it to start at row 4?

Trevor Shuttleworth Wrote:
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



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

DKY

For i = LastRow To 4 Step -1

Regards

Trevor


"DKY" wrote in message
...

This works beautifully Trevor, I forgot to mention something though. I
have a header on row 3, and hide row 1 and 2. So.... I would like to
have the blank rows start at row 4 blank then part numbers then blank
row then part numbers. This code puts a blank row above my header on
row 3. How do I get it to start at row 4?

Trevor Shuttleworth Wrote:
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



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