Pivot filters to hide certain rows

Probably have to go with VBA

Sub HideRows()
Dim LR As Long, i As Long

With Worksheets("Pivot")
LR = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 5 To LR
        If Not UCase(Left(.Cells(i, 1), 6)) = "COMPAN" And WorksheetFunction.Count(.Cells(i, 2).Resize(1, 3)) = 0 Then
            .Rows(i).Hidden = True
        End If
    Next i
End With
End Sub