Worksheet Change ByVal Target Code Update

My code below works fine now, but I need help adjusting it. Instead of just updating PivotTable2, I also want to make the exact same updates to PivotTable6 (located on the same sheet). I tried a few things now, but no luck yet. Any help would be greatly appreciated!!

Private Sub Worksheet_Change(ByVal Target As Range)
   
   On Error GoTo ErrorHandler
   
    Dim PvtTable As PivotTable, PvtItem As PivotItem
   
    If (Intersect(Target, Range("B1")) Is Nothing) Then
        Exit Sub
    End If
   
    'PivotTable to update
    Set PvtTable = ThisWorkbook.Worksheets("Summary").PivotTables("PivotTable2")
   
    'Clear all filters on the Job Number Field
    PvtTable.PivotFields("Job Number").ClearAllFilters
   
    'Turn off Application calculation and screen updating
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    
    'Stop the PivotCache from recalculating until the selection change has been made
    PvtTable.ManualUpdate = True
   
    For Each PvtItem In PvtTable.PivotFields("Job Number").PivotItems
        'If the current PivotItem caption isn't the same as the selection in cell B1
        'Then set the Item to Visible=True, otherwise Visible=False and hide
        PvtItem.Visible = (PvtItem.Caption = CStr(Range("B1").Value))
    Next
   
ErrorHandler:
    
    'Turn on Application calculation and screen updating
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    'Turn the PivotCache calculation on again
    PvtTable.ManualUpdate = False
    
    
End Sub

Administrative Note:

We would very much like to help you with your query, however it has been brought to our attention that the same query has been posted on one or more other forums and you have not told us about this. You are required to do so.

Please see Forum Rule #3 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important: https://excelguru.ca/a-message-to-forum-cross-posters/

(Note: this requirement is not optional. As a courtesy, I shall do it for you THIS TIME: https://www.mrexcel.com/board/thread...-code.1220386/)

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code] [/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. As a courtesy, I shall do it for you THIS TIME.)