Excel VBAでコピーコードを実行できません

Question

以下のコピーコードを実行できません。エラーApplication -defined or Object-Defined errorが表示されます。このコードは以前は実行されていましたが、現在はエラーが発生しています。何がうまくいかなかったのか理解できないので、私を助けてください。

For i = Start To last 
'MsgBox ActiveSheet.Cells(i, 17).Value, vbInformation 

If (ActiveSheet.Cells(i, 17).Value >= ActiveSheet.Cells(1, 34).Value) Then 
    'MsgBox ActiveSheet.Cells(i, 17).Value, vbInformation 
    Worksheets("Sample Data").Range(Cells(i, 1), Cells(i, 2)).Copy 
    Worksheets("Output").Cells(j, 2).PasteSpecial xlValues 
    j = j + 1 
End If 

Next i 

私は行ごとにそれを実行することができていますが、f5を押したときにエラーを取得。

Answer 1

再起動時にコードが正常に動作します。これはコードが正しいので無視することができます。