Hvordan bruges autofill i et random range

Hej.

Jeg har en pivot tabel med nogle ekstra kolonner med beregninger ved siden af.

Jeg vil gerne kunne bruge funktionen filldown, således min beregningskolonner (H:I) lige til venstre for pivottabellen tilpasses, så kolonnerne med beregningerne har lige mange rækker som pivottabellen.

Det virker på denne måde, men er håbløs langsomt:

    Application.ScreenUpdating = False
    Range("h8:I10000").ClearContents
    T = Range("L6").Value
    Range("H7:I7").Select
    For i = 1 To T
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.FillDown
    ActiveCells.Offset(0, 1).Range("A1").Select
    Selection.FillDown
    ActiveCells.Offset(0, -1).Range("A1").Select
    Next
    Application.ScreenUpdating = true

Jeg har leget lidt med følgende, men det virker ikke:

    Set SourceRange = Range("I7")
    Set fillrange = Range(Cells(8, 9), Cells(10, 9)).Select
    SourceRange.AutoFill Destination:=fillrange

Denne kode skulle tage celle I7 og autofill celle I8-I9.

Den perfekte løsning for mig vil være, at celle H7:I7 copieres nedaf det antal gange som en formel i celle L6 giver. Det svare til min variabel "T" i første makrokode.

Håber I kan hjælpe, for jeg har masser af regneark, hvor jeg ville kunne bruge det.