VBA udfordring med autofill

Jeg har en fejl i min kode som gør at den, fremfor kun at autofill'e ned til række ca 5000 går til bund i fanen. Koden ser således ud (strFilnavn er naturligvis defineret andetsteds.

    ThisWorkbook.Activate
    Sheets("Samlet").Select
    Cells(2, 24).Select
    ActiveCell.Formula = "=SUMIF(" & strFilnavn & "!$T:$T,T2," & strFilnavn & "!$V:$V)"
    ActiveCell.Select
    Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell.End(xlDown))

Udfordringen er naturligvis at det dræber alt i beregninger hvis den laver 1 mio sumif formler.
Jeg forstår dog ikke at den går længere ned, når kolonnen før har ca 5000 linjer (uden tomme imellem).

Jeg har derfor leget lidt med en variabel som tæller antallet af rækker, men hvordan ser Autofill ud hvis man skal bruge denne variabel - jeg kan ikke få det til at virke.