Countif-sætning hvor antallet af celler der skal tælles er variabelt

Hej med jer,

Jeg har et problem som jeg ikke lige kan regne ud...

Efter at have oprettet en pivot-tabel skal jeg have systemet til at tælle hvor mange celler der ikke er tomme.
I og for sig ikke det store problem, men...

Jeg ved ikke hvor mange rækker og kolonner jeg skal tælle på fra gang til gang.

Se herunder:

Jeg bruger VLint som variabel for at tælle vandret og RKint for at tælle lodret.

--------------------------

VLint = 1 
   
    Do
    Cells(4, VLint).Select
    If Cells(4, VLint) <> "" Then
    VLint = VLint + 1
    Else
    End If
    Loop Until Cells(4, VLint) = ""
------------------------------
Med teksten herover, kommer jeg frem til den sidste celle, som er stedet hvor jeg skal have placeret mit "TÆL.HVIS"-resultat. Så langt så godt.
------------------------------


   
    RKint = 5
    Dim VLint1
   
    VLint1 = 2
   
   
    Do
    Cells(RKint, VLint).Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-41]:RC[-2],"">0"")"
    RKint = RKint + 1
    Loop Until Cells(RKint, VLint1) = ""
   
    Cells.Select
    Selection.EntireRow.AutoFit
    Selection.EntireColumn.AutoFit
   
    Cells(5, 1).Select
-------------------------
Problemet ligger i den sætning der hedder

ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-41]:RC[-2],"">0"")"

Hvis jeg nu har flere eller færre kolonner, så vil "=COUNTIF(RC[-41]: nemlig ikke være korrekt, så det jeg skal bruge er en metode til, at hvor mange celler der skal tælles på i et givent regneark.

I ovenstående tilfælde er der 40 celler der skal tælles på, men hvis jeg nu kun har 38 celler så skal den jo i princippet hedde ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-39]: men hvordan for jeg lagt det ind?

Håber der er nogle herinde der kan hjælpe mig med ovenstående. Jeg er bestemt ingen haj til det her så jeg skal desværre nok have det skåret lidt ud i pap for at fatte det,da meget af det her fiser henover hovedet på mig i meget høj hastighed :-(

Med venlig hilsen

Henrik