Sub Test()

Dim pt As PivotTable
Dim i As Integer
Dim id As String
Set pt = ThisWorkbook.Worksheets("sheet1").PivotTables("PivotTable1")

pt.PivotFields("ID").ClearAllFilters
pt.PivotFields("ID").EnableMultiplePageItems = True
    For i = 1 To 10
        id = ThisWorkbook.Worksheets("sheet2").Range("A" & 57 + i).Value
        pt.PivotFields("ID").CurrentPage = id
    Next i

End Sub