Bom dia!
Preciso filtrar uma tabela dinâmica com valores de algumas células, utilizando macro. Porém o filtro esta considerando apenas a célula acionada.
Gostaria que fossem considerados todos os valores das células informadas para esse filtro.

abaixo macro que estou tentando:

Sub Form_Questionario()

Sheets("IMPACTO").Visible = True
Sheets("IMPACTO").Select

'LIMPAR TODOS OS FILTROS DA TABELA DINÂMICA
ActiveSheet.PivotTables("Tabela dinâmica1"). _
ClearAllFilters

'PESQUISA PRODUTO

ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Descrição Familia (Grupo de Risco)").CurrentPage _
= Sheets("IMPACTO").Range("S3").Value

ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Descrição Familia (Grupo de Risco)").CurrentPage _
= Sheets("IMPACTO").Range("S4").Value

End Sub