Creating Pivot Tables With VBA And Putting In Tabular Form With No Subtotals

I have created the code below to create a Pivot Table using VBA, so that it populates from a list box option.

I would prefer if it didn't show any subtotals and was in a tabular form. It keeps dropping off at that point for each row field.

CODE
Sub trail()
'
' trail Macro
'
'
Dim wksPivot As Worksheet
Dim wksData As Worksheet
Dim pc As PivotCache
Dim PT As PivotTable
Set wksPivot = Sheets("PIVOT")

[Code] ......