Kald af ny makro fra program

Jeg har fået hjæp til nedenstående progam herinde, og det fungerer fint. Jeg ville så bare have at det startede ny makro (Pivottabel)når programmet er kørt igennem!.
Men jeg kan ikke rigtig se hvor jeg skal indsætte kaldet.

Dim InitListe As Variant
Sub starFilter()                                         
    InitListe = Array("AHS", "HCA", "IMP", "JRK", "LNL", "MPR", "OGK", "SGJ")      udførFiltrering
End Sub
Private Sub udførFiltrering()
Dim antalRæk
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = antalRæk To 2 Step -1
        If Cells(ræk, 1) <> "" Then
            If InitBevares(Cells(ræk, 1)) = False Then
                Rows(ræk).Delete
            End If
        End If
    Next ræk
End Sub
Private Function InitBevares(init)
    For f = 0 To UBound(InitListe)
        If init = InitListe(f) Then
            InitBevares = True
            Exit Function
        End If
    Next f
    InitBevares = False
End Function