怎么了？ Excel VBA（在表格公式中）

Question

我想将由Excel表中的列输入自动计算出的公式应用于特定列。此时，由于应用公式的列应该以相同的间隔出现，因此使用以下代码值，并且会发生错误。我在做什么错了？

  

1004运行时错误

For b = 68 To 299 Step 21    
    Cells(2, b).Select        
    ActiveCell.Formula = "=IFERROR" & "([@[" & Cells(1, b - 2).Value & "]] " & "*" & "([@[" & Cells(1, b - 1).Value & "]]" & "/" & "1000000" & ")," & Chr(34) & Chr(34) & ")"        
    Cells(2, b).Select        
    Selection.AutoFill Destination:=Range("table1" & "[" & Cells(1, b) & "]")
Next b

cells(1,b) => table Header