VBA: Insert new row based on condition

[i8ur4re]

Good day,

I have a list that looks something like this:

ItemNumber	Description	Cost
100-13	Open Coil Innerspring Demo	78
1020025	Rocker Recliner/Pikara	219.99
1020035	Loveseat/Pikara/Gunsmoke	254.99
1020038	Sofa/Pikara/Gunsmoke	269.99
1030025	Rocker Recliner/Carnell/Brown	259.99
1030087	Reclining Power Sofa/Carnell	519.99
1030088	Reclining Sofa/Carnell/Brown	419.99
1030094	Double Rec Loveseat w/Console	419.99
1030096	DBL REC PWR Loveseat w/Console	519.99
1030098	Power Rocker Recliner/Carnell	309.99

<tbody>
</tbody>

I have 3 columns, each column as shown above has the following headers; Item Number, Description, and Cost.

I would like to insert "Item Number" under each new set of numbers. A set of numbers is the first 3 numbers.
For example; The first "Item Number" 100-13 is one number. I would like to insert a "Item Number" under it so I can sort the new set of numbers which in this case would be "1020025-1020038".

The 102 is the primary number that this list must be sorted by. The next set is 103 (1030025-1030098). Under each set of numbers i would like to add a blank row so i can insert the headers that correspond to what that column indicates ("Item Number, Description, Cost").

At the end it should look something like this:

ItemNumber Description Cost 100-13 Open Coil Innerspring Demo 78 ItemNumber Description Cost 1020025 Rocker Recliner/Pikara 219.99 1020035 Loveseat/Pikara/Gunsmoke 254.99 1020038 Sofa/Pikara/Gunsmoke 269.99 ItemNumber Description Cost 1030025 Rocker Recliner/Carnell/Brown 259.99 1030087 Reclining Power Sofa/Carnell 519.99 1030088 Reclining Sofa/Carnell/Brown 419.99 1030094 Double Rec Loveseat w/Console 419.99 1030096 DBL REC PWR Loveseat w/Console 519.99 1030098 Power Rocker Recliner/Carnell 309.99 <tbody> </tbody>

<tbody>
</tbody>

Its a very large list of items, over 6300 items to be exact. Macros are welcome.
ANY HELP WOULD BE APPRECIATED.
You guys are awesome. Thank you

 

[HalfAce]

If I understand... (and if your data is actually in columns A:C as your example implies), then perhaps something like this will get you closer.

Sub SeperateByFirst3()
Dim LstRw As Long, Rw As Long, Frst3 As String

''' (CHANGE 'A' TO THE COLUMN YOUR ITEM NUMBERS ARE REALLY IN)
LstRw = Cells(Rows.Count, "A").End(xlUp).Row
Frst3 = Left(Cells(LstRw, "A").Value, 3)

For Rw = LstRw To 2 Step -1
    If Not Left(Cells(Rw, "A").Value, 3) = Frst3 And Cells(Rw, "A") <> "" Then
        With Cells(Rw + 1, "A")
            .EntireRow.Insert
            Range("A1:C1").Copy .Offset(-1)
        End With
            Frst3 = Left(Cells(Rw, "A").Value, 3)
    End If
Next Rw

End Sub

Hope it helps.