将公式添加到范围

Question

我有一个公式可以输入一个范围。当我使用单个单元格范围时就可以了。但是，当我尝试多单元范围时，它不起作用。 Range("F1")有效，Range("I4")有效，而Range("J4:EZ4")有效。我想念什么？

    .ColumnWidth = 1
    .Range("F1").Formula = "=COUNT(I4:EZ4)"
    .Range("H5").Value = "Schedule Amount"
    .Range("I4").Formula = "=IF(($F$3-WEEKDAY($F$3,3)+IF(WEEKDAY($F$3,3)>4,11,4))>EOMONTH($F$3,0),EOMONTH($F$3,0),$F$3-WEEKDAY($F$3,3)+IF(WEEKDAY($F$3,3)>4,11,4))"
    .Range("J4:EZ4").Formula = "=IF(I4>$G$3,"",IF(AND(I4=EOMONTH(I4,0),WEEKDAY(I4)=6),EOMONTH(I4,0)+7,IF(I4=EOMONTH(I4,0),I4-WEEKDAY(I4,3)+IF(WEEKDAY(I4,3)>4,11,4),IF(MONTH(I4+7)<>MONTH(I4),EOMONTH(I4,0),I4+7))))"
    .Columns("D:EZ").AutoFit
    End With```