Excel VBA「アプリケーション定義の定義済みまたはオブジェクト定義のエラー」

Question

列Dの数値を取得し、この数値から列Cの14を引いた数式を計算しようとしています。 次に、範囲を自動入力するためのtriyngです私が計算した最初のセルにまで下がります。

最初にそれが働いていたが、今では私にエラーを示しています。誰かが私はなるでしょう。このprblemを解決するために私を助けたい場合、コード

Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & lastrow) 

のこの行に

appliction-defined or object-defined error

をうれしい。代わりに

Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & lastrow) 

の

OP_wb.Sheets("Optic Main").Activate 

Dim FirstRow As Range 
Dim lastrow As Range 


Set FirstRow = Range("C1").End(xlDown).Offset(1, 0) 
Set lastrow = Range("E1").End(xlDown).Offset(0, -2) 

Range("E1").End(xlDown).Offset(0, -2).Select 

      Range(FirstRow, lastrow).FormulaR1C1 = "=(c4-14)" 
      Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & lastrow) 

Answer 1

それが働いた

Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & lastrow.Row)