Dynamic Range VBA

Sub CountIFogAutoFill()

'<<< i celle H3 står værdien "34", der tæller antallet af rækker, der skal bruges i linie B

A)    ActiveCell.Value = "=COUNTIF(Ekspo_bunke!$C:$C;A2)"
B)    Selection.AutoFill Destination:=ActiveCell.Range("A1:A34")

JEG HAR BRUG FOR HJÆLP TIL:
at Autofill sker med udgangspunkt i et range der er aktive celle og aktivekolonne+den række der står i celle H34


End Sub