¿Cómo puedo corregir este problema con mi código?

Tengo el siguiente codigo, el cual se ejecuta desde una user form(Private Sub CommandButton1_Click()) 

If ComboBox4 = "Plants" Then
With Tdinamica.PivotFields("Plant [Description]")
.Orientation = xlRowField
.Position = 1
End With
ElseIf ComboBox4 = "Categories lv1" Then

With Tdinamica.PivotFields("Spend Cat. Pack L 1 [Description]")
.Orientation = xlRowField
.Position = 1
End With
'With Tdinamica.PivotFields("Spend Cat. Raw L 1 [Description]")
' .Orientation = xlRowField
' .Position = 2
' End With

ElseIf ComboBox4 = "Categories lv2" Then
Else
End If

Este código en la parte de if combobox4=plants, funciona bien, y genera la tabla dinámica como se supone que debe ser generada.

Pero a la hora de ejecutar la parte de categoría, la tabla debería buscar datos desde columnas diferentes, ya que en la tabla de origen hay una columna para aquellas ordene de compra que son packaging y otra para raw material.

¿Cómo puedo lograr que se generen uno debajo del otro? Sin que aparezcan en columnas separadas en formato tabular...

Es más fácil ilustrarlo con el archivo completo. Si alguien puede ayudarme permitanme su correo y yo les comparto el archivo.