Escribir en celdas los datos a filtrar

[dandd]

Buen dia, estoy trabajando con una tabla dinámica y estoy haciendo macros para filtrar ingresando los datos en una celda. Si solo necesito filtrar por un valor con esta macro lo puedo resolver

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C28:C35")) Is Nothing Then
    With PivotTables("Tabla dinámica9").PivotFields("Month")
     On Error Resume Next
    .CurrentPage = Range("C28").Value
    End With
End If
End Sub

Eso es considerado que en la tabla solo quiero ver un mes, pero si quisiera dos o mas veces, la idea es ingresar esos meses en una celda y que esos datos los tome como ejemplo. Hice una prueba con la grabadora de macros y lo hace al revez osea solo recibe los datos que no quiero ver, en mi caso yo quiero recibir los datos que quiero ver.

 

Gracias de antemano