How to apply multiple label filters on pivot table at once

[babbeleme1]

Hello

I want to set multiple label filters on my pivot table, so that it will show Column B dates with a "6" or a " ' " in them.
I have the following code, but it does one after the other and ignores the first. How do/can I combine them?

Sub FormatPivot()

    ActiveSheet.PivotTables("Monthly ").PivotFields("Date"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Monthly ").PivotFields("Date").PivotFilters.Add Type:=xlCaptionBeginsWith Value1:="6"
    ActiveSheet.PivotTables("Monthly ").PivotFields("Date").PivotFilters.Add Type:=xlCaptionEquals Value1:="'"

End Sub