公式未插入范围

Question

我正在尝试使用VBA插入公式，但不断抛出错误

我尝试了下面的代码，但始终出现运行时1004错误。而且，当我手动粘贴时，displayalerts不会更改为false，我会收到一条警告说：“您粘贴的数据与您选择的数据大小不同。您是否仍要粘贴？'

Sub Total()

    Application.DisplayAlerts = False
    Range("PayrollOutput[Total comp]").Formula = "=IF([@Name]<>B40,IF(B40="",SUMIF([Name],[@Name],[Total to Pay]),""),"")"
    Application.DisplayAlerts = True
End Sub