Adapt my current VBA Code to update pivot based selection in 2 cells

Dear Excel Help,

I have the below VBA that will update my pivot based on the selection in cell b4, however I also want it to update the qtr based on the selection in c4. Would someone be able to advise how i adapt the code below to do this please?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngDV As Range
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    Set rngDV = Range("B4")
    If Not Intersect(Target, rngDV) Is Nothing Then
        PivotTables("FWKASP").PivotFields("Territory").CurrentPage = rngDV.Value
    End If
ExitPoint:
    Set rngDV = Nothing
    Application.EnableEvents = True
End Sub

many thanks for looking.