Jak zaktualizować wartość TextBoxa ActiveX przy zmianie filtrów w Excel VBA?

Cześć

W arkuszu excela mam stworzoną tabelę przestawną i kilka fragmentatorów do niej. Obok mam pole textowe ActiveX i kod vba do niego jak poniżej. Textbox pokazuje mi wartość, ale tylko za pierwszym razem jesli zaznacze jakaś opcje we fragmentatorze. Jak zrobić, aby odświeżał dane według filtrów z fragmentatorów? Zawsze chodzi o pobranie wartości z ostatniej komórki w kolumnie G.

Private Sub TextBox1_Change()
TextBox1.Text = Range("G" & Rows.Count).End(xlUp).Value & newtext
End Sub

Wykorzystaj zdarzenie Change, ale arkusza. Gdy jest zmiana w komórce wpisuj wartość do TextBoxa.

Niestety nadal nie działa, nie wiem czy dobrze to robie bo dopiero ucze sie vba, ale po zmianie kod wyglada tak:

Private Sub Arkusz1_Change()

TextBox1.Text = Range("G" & Rows.Count).End(xlUp).Value & newtext

End Sub

Wartosc w polu tekstowym odswieza sie tylko jak uruchamiam ponownie kod vba a nie jak zmieniam filtry w tabeli przestawnej.

W arkuszu w którym następują zmiany wklej kod taki jak na zrzucie
2020-02...png (25.93 kB)Musisz być zalogowany, aby pobrać ten załącznik.

Prot bardzo dziekuje! pieknie dziala