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>

 

[boomshaka]

Sub Make2Lists()( Highlighted)​

 

[boomshaka]

I kept pressing FB and I get an Application Defined or Object defined Error

 

[Fluff]

Did you get an error message?
If so what was it.
If not press F8 again & again until either the macro finishes, or you get an error message.

 

[boomshaka]

Application-defined or object-defined error when .formula

When we get to this section of the code.

.Replace True, Ary(i), xlWhole, , False, , False, False​

<strike></strike>
​

 

[Fluff]

As there is not line with .formula in the code I posted, could you please post the code that you are using.

 

[boomshaka]

That is the exact line that you sent me. Could you check again please?

 

[Fluff]

Do you have any merged cells in column A