Pokazywanie/ukrywanie wartości w wykresie przestawnym

Witam,

mam problem z wyświetlaniem danych w wykresie przestawnych za pomocą makra. Chcę aby w jednym arkuszu klikając dwukrotnie na komórkę, wartość została zapamiętana i w osobnym arkuszu dana wartość znalazła się na wykresie przestawnym w kolumnach.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim szukaj As String
Dim Wiersz As Integer
   
    Wiersz = ActiveCell.Row
    If Target.Address = "$E$" & Wiersz And Target.Value <> "" And Target.Address <> "$E$2" And Target.Address <> "$E$4" Then
        szukaj = Target.Value
        Sheets("Wykresu").Visible = True
         Sheets("Wykresu").Select
           With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("SKU")
        .PivotItems("Brandy Metaxa 3* 38% 0,7L b.").Visible = True
        .PivotItems("Brandy Słoneczny Brzeg 36% 0,5L b.").Visible = False
   
End With   
    Else
   
    Cancel = True
   
    Exit Sub
       
    End If

End Sub

Mój problem polega na tym, że makro dołącza kolejną daną do wyświetlania na kolumnie. Czy ktoś wie jak zrobić aby, przed każdym zaznaczeniem odznaczał wszystkie poprzednie wartosci (aby wyświetlała się tylko jedna jedyna kliknięta dwukrotnie)?

Z góry dziekuję za pomoc.
Łukasz

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl