VBA, Runtime og ActiveCell.Value = Empty, hvad skyldes denne fejl

Jeg har en kodestreng, hvor jeg får en Run-time fejl.
I Cell B2 skal der indsættes en value.
Men når den gør det får jeg run.time fejl 1004 og når jeg markerer cellen siger den Value=Empty.

Hvorfor dog det?



Sub CountIFogAutoFill()

Dim AlfaCell As Range
Dim BravoCell As Range

   
    Range("B2").Select
    Set AlfaCell = Range("B2")

'FEJL:=>    ActiveCell.Value = "=COUNTIF(Ekspo_bunke!$C:$C;A2)"

    Range("A1").Select
    Selection.End(xlDown).Select

    Set BravoCell = ActiveCell.Offset(0, 1)

Range("B2").Select

  Selection.AutoFill Destination:=ActiveCell.Range(AlfaCell, BravoCell)


End Sub