VBA: Expected end of statement ved ""

Jeg har en sub med en formel der falder for Expected end of statement.

Den Danske version ser sådan ud, når jeg sætter den ind i excel manuelt, men når jeg kører SUB, hvordan skal den så se ud?

Sub Udfyld_Niveau()

Dim AlfaCell010 As Variant
Dim Alfacellcol010 As Integer
Dim BravoCell010 As Variant
Dim Bravocellcol010 As Integer
Dim Offsetcount010 As Integer
Dim CharlieCell010 As Variant
Dim SourceRange010 As Variant
Dim FillRange010 As Variant



Cells.Find(What:="Niveau", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Set SourceRange010 = ActiveCell.Offset(1, 0)

ActiveCell.Offset(1, 0).Activate

AlfaCell010 = ActiveCell.Address
Alfacellcol010 = ActiveCell.Column



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Det er her den fejler:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ActiveCell.Formula = "=HVIS(AndelOverKPI<0,1;"J";HVIS(AndelOverKPI<0,7;"K";"L"))"




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


BravoCell010 = ActiveCell.Address
Bravocellcol010 = ActiveCell.Column
Offsetcount010 = Alfacellcol010 - Bravocellcol010



CharlieCell010 = ActiveCell.Offset(0, Offsetcount010).Address

    Set FillRange010 = ActiveSheet.Range(AlfaCell010, CharlieCell010)
   
    SourceRange010.AutoFill Destination:=FillRange010

End Sub