Filter Excel pivot table with multiple criteria using VBA

I am trying to filter a row field based on a range.
My range is on a sheet called FY2015 Data in the same workbook and range address is AM2:AM22.


Can someone help me in specifying the range correctly?
This is what I have so far

HTML Code: 

Dim pf As PivotField
Dim pi As PivotItem
 Set pf=ActiveSheet.PivotTables("PivotTable2").PivotFields("FilterType")
        For Each pi In pf.PivotItems
        pi.Visible = Not IsError(Application.Match(pi.Caption, Range("AM2:AM22"), 0))
        Next pi

Thanks!

"Bump no response"