Indsæt sum.hvis formel i celle via VBA

Hej,

Jeg har nedenstående koder som driller lidt. Mit problem er, at jeg får en fejl 1004 i min kodelinje ActiveCell.Formula.....

Det jeg ønsker at min VBA kode skal gøre er, at den tage teksten på højre side af = og indsætter i den celle jeg står i, så jeg derved får indsat en "normal" Excel formel.

Jeg har også et andet problem. Jeg ønsker at den værdi der fremgår af min variabel CelName, f.eks. B4, bliver indsat i min kodelinje nedenfor.

Håber at I kan hjælpe :-)

Sub sumifRegnskabFunction()

CelName = ActiveCell.Offset(0, -1).Range("A1").Address

ActiveCell.Formula = "=SUM.HVIS(tblDataSpec[5 Undergruppe];CelName;tblDataSpec[Saldo inkl adjustments])*-1/1000)"

End Sub