Automatically filter pivot table and turn off "show details"

Hello

I'd like to create a macro that will automatically update my pivot table in the following ways:

1. Filter it to include only dates in ColumnC "Date" that are of the current month AND include blank dates
2. Change all the rows in ColumnB "Name" to turn off "show details" so that it will take the sum of the amounts instead of showing each one

I had an idea for both, but they don't work. Can anyone tell me why and/or help me change it so it will work?

Sub ShowCurMth()


    ActiveSheet.PivotTables("Monthly ").PivotFields("Loan Boarded Date"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Monthly ").PivotFields("Loan Boarded Date").PivotFilters.Add Type:=xlCaptionBeginsWith, Value1:=Month(Date)

End Sub

Sub ShowBlanks()

    With ActiveSheet.PivotTables("Monthly ").PivotFields("Loan Boarded Date")
        .PivotItems("'").Visible = True
    End With

End Sub

Sub ShowDetails()

    FindArray = Array("AA", "BB", "CC", "DD", "Open", "Other", "EE", "FF", "GG")
    For i = 0 To 39
        ActiveSheet.PivotTables("Monthly ").PivotFields("BBRM").PivotItems(i).ShowDetail = False
    Next
    
End Sub