This example adds the names of all the child items of the item named "vegetables" to a list on a new worksheet.
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable
rw = 0
For Each pvtItem In _
pvtTable.PivotFields("product")
.PivotItems("vegetables").ChildItems
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtItem.Name
Next pvtItem