excel - funkcja niestandardowa nie działa z filtrowaniem

Mam to:

Mam kod VBA:

Public Function CONCATENATESPECIAL(rng As Range) As String

Dim rng1 As Range

CONCATENATESPECIAL = ""

   For Each rng1 In rng
        If rng1.Value <> "" Then
        CONCATENATESPECIAL = CONCATENATESPECIAL & rng1.Text & " | "
        End If
   Next rng1

End Function

Muszę przejść przez kolumnę i zapisać w niej treść oddzieloną znakiem „|”, który działa idealnie.

Moim problemem jest to, że nie działa z filtrowaniem. Kiedy coś odfiltrowuję, nadal wyświetla te same wyniki.

po filtrze

Zmień kryteria:

If (not rng1.EntireRow.Hidden) And (rng1.Value <> "") Then