424 オブジェクトが必要です が表示されます。

Question

前提・実現したいこと

現在独学でVBAを学んでいます。
特定のセルの数値を他のセルに代入するプログラムを書いています。

発生している問題・エラーメッセージ

424コード　オブジェクトが必要です

該当のソースコード

 Dim n As Long
    Dim y As Long
    Dim i As Long
    Dim j As Long
   
    i = 2
    y = i
    
    Do While ActiveSheets.Cells(i, 1).Value <> ""
    If Cells(y, 1).Value = 66 Then
        n = Cells(y, 21).Value
        j = y + 1
        
        Do While ActiveSheets.Cells(j, 1).Value <> 66
        Cells(j, 15) = n
        j = j + 1
        Loop
        
    Else
    
    End If
    y = y + 1
    Loop

試したこと

情報を調べSetを付けてみましたが同じエラーでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

まず、ただ実行するのではなく[F8]で一行ずつ実行してみるとどこでエラーが発生しているか(するか)わかると思います。メニューから実行することもできます。

恐らく今回は
ActiveSheets.
↑これが原因でしょう。

ActiveSheet.
↑これにしてみて下さい。

Comments

[saiou]

問題解決への回答ありがとうございます。
ご意見のように直したら表示されなくなりました。

1行ずつ確認する方法も教えていただきありがとうございます