FilterBLANK.vbs
Sub FilterBLANK()
On Error Resume Next
ActiveSheet.PivotTables("PivotTable1").PivotFields("First Name").PivotFilters.Add Type:=xlCaptionEquals, Value1:=""
End Sub
ClearFILTER.vbs
Sub ClearFILTER()
On Error Resume Next
ActiveSheet.PivotTables("PivotTable1").PivotFields("Job Title").ClearAllFilters
End Sub