With your help I prepared the following code to control a pivot table using a
data validation field:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("D2")) Is Nothing Then Exit Sub

Application.EnableEvents = False
Worksheets("Profile").PivotTables("Pivottable1") _
.PageFields("Prescriber Name").CurrentPage = Target.Value
Application.EnableEvents = True

End Sub

I want to have two of this in one page. I do not know much of VBA.
How can I do this?
Thank you very much!