Two lists from one.

[boomshaka]

<colgroup><col width="64" style="width:48pt"> </colgroup><tbody>
</tbody>

I need help turning one list into two. Can you help?

Original List		List 1		List 2
Planned	PO 1		Planned	PO1	Break Even	PO2
Break Even	PO 2		Planned	PO2	Break Even	PO3
Break Even	PO 3
Planned	PO 4
Planned	PO 5
Break Even	PO 6
Break Even	PO 7
Planned	PO 8
Planned	PO 9
Break Even	PO 10
Break Even	PO 11
Planned	PO 12
Planned	PO 13
Break Even	PO 14
Break Even	PO 15
Planned	PO 16

<colgroup><col><col><col span="3"><col><col></colgroup><tbody>
</tbody>

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub Make2Lists()
   Dim Ar As Areas
   Dim Rng As Range
   Dim i As Long, j As Long
   Dim Ary As Variant
   
   j = 4
   Ary = Array("Planned", "Break Even")
   For i = 0 To UBound(Ary)
      With Range("A:A")
         .Replace Ary(i), True, xlWhole, , False, , False, False
         Set Ar = .SpecialCells(xlConstants, xlLogical).Areas
         .Replace True, Ary(i), xlWhole, , False, , False, False
      End With
      For Each Rng In Ar
         Rng.Resize(, 2).Copy Cells(Rows.Count, j).End(xlUp).Offset(1)
      Next Rng
      j = j + 3
   Next i
End Sub

 

[boomshaka]

Where would I put this in Excel 2010?

 

[Fluff]

It needs to go in a Regular Module. As shown here http://www.contextures.com/xlvba01.html

 

[boomshaka]

Getting an error message of 400. What does that mean?

 

[Fluff]

Difficult to tell as it's an unspecified error.
Was the sheet with the list, the active sheet when you ran the code?
Also is that sheet protected?

 

[boomshaka]

Difficult to tell as it's an unspecified error.
Was the sheet with the list, the active sheet when you ran the code?
Also is that sheet protected?

It is a valid sheet. Is there a way to upload?

 

[Fluff]

You cannot upload files to the site, but you can upload to a share site such as OneDrive, GoogleDrive, etc & post a link to this thread.
However you have only answered one of my questions.

 

[boomshaka]

The sheet is not protected. The sheet is active.

 

[Fluff]

Open the VB editor, put the cursor anywhere in the code & press F8, this ill allow you to step through the code line by line.
What happens?