Assign a value to the Orientation property of the PivotField object, as shown here:
Sub AddFieldsToTable()
With ActiveSheet.PivotTables(1)
.AddFields RowFields:="State", AddToTable:=True
.PivotFields("Date").Orientation = xlPageField End With End Sub