Hvor mange celler med tekst

Hej

Jeg har en pivot tabel med en masse data som er sortere efter størrelse.
Jeg skal have den til at vise de 10 største og 10 mindste værdier, resten behøves jeg ikke at se.
Jeg har nogenlunde fundet ud af hvordan man kan gøre det, beskrivelse på dansk:

Start fra denne celle + kolonne
Forsæt i samme kolonne
Hvis der er tekst i cellen, tæller + 1
Forsæt indtil der ikke er tekst i cellen

Dermed har jeg antallet af celler med tekst, så er det simpelt udregning med macroen entirerow.hidden = true

Kan nogen hjælpe mig med at "oversætte" det til vb? Eller hvis der findes en smartere metode!