Filtering for 2 values in a PivotTable VBA

[Tregs]

Hello, I am very new to VBA. I am trying to update my processes for my morning reports. I have multiple pivot tables that need to be filtered to yesterday and a week prior to yesterday. I found out that .CurrentPage is only for one value, so I tried creating a loop with no luck. Please excuse my formatting and thank you in advance.

Dim sI As SlicerItem
Dim FD As Long 'yesterday fiscal date
Dim i As Long
Dim pT As PivotTable
Dim pF As PivotField

FD = ActiveSheet.Range("F1").Value

Application.ScreenUpdating = False
Application.EnableEvents = False


For Each pT In Worksheets("WoW").PivotTables
With pT.PivotFields("Fiscal_Date")
On Error Resume Next
For i = 2 To Field.PivotItems.Count
If .PivotItems(i).Value = FD Then
.PivotItems(i).Visible = True
ElseIf .PivotItems(i).Value = FD - 7 Then
.PivotItems(i).Visible = True
Else
.PivotItems(i).Visible = False
End If
Next i
End With
Next pT

Application.ScreenUpdating = True
Application.EnableEvents = True


End Sub