Filtering a PowerPivot table based on the value in a cell

I want to filter a PowerPivot table based on the value in cell B6 on the (same) worksheet

I have:

Sub Pivot1()

ActiveSheet.PivotTables("PivotTable2") .PivotFields("Operation") .CurrentPage = Range("B6").Value

End Sub

What other lines of code do I need to make this work?