VBAでシート間のコピーをしたいが、繰り返し部分でエラーがでる

Question

前提・実現したいこと

VBAでシート間でのセルのコピーをしたい

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

繰り返し処理をしたい為、for文を入れると
実行時エラー424　オブジェクトが必要です
とのエラーが出た。

―追記-
エラー個所についてはfor num1の部分で現在は
現在は変数Zにnum1の構文を入れているので
変数Zの部分でエラーが出ている状態です。

該当のソースコード

    With Worksheets("雛形")
    Dim jj, k, num1, num2 As Variant
    For jj = 2 To Worksheets.Count
    
    Z = .Cells(Row.Count, 2).End(xlUp).Row
    Y = .Cells(Row.Count, 14).End(xlUp).Row
    
    
        For k = 8 To Sheets(jj).Cells(Rows.Count, 9).End(xlUp).Row + 1
            'ヘッダー
            .Range("AA1") = Format(Date, "yyyy年mm月") & Worksheets(jj).Range("E8") & "日"
            .Range("B1") = Worksheets(jj).Range("L2")
            .Range("A2") = Worksheets(jj).Range("L3")
            .Range("B4") = Worksheets(jj).Range("D2")
            
            '内容
            For num1 = 13 To Z Step 1
            For num2 = 14 To Y Step 1
                If Worksheets(jj).Range("J" & k) <> "" Then
                    .Range("N" & num1) = Worksheets(jj).Range("H" & k)
                    .Range("V" & num1) = Worksheets(jj).Range("J" & k) + Worksheets(jj).Range("K" & k)
                    .Range("R" & num2) = Worksheets(jj).Range("C" & k)
                    .Range("P" & num2) = A + Day(Sheets(jj).Range("G" & k).Value)
                    .Range("Z" & num1) = Worksheets(jj).Range("I" & k)
                End If
            Next num2
            Next num1
        Next k
    Next jj
    End With
    Application.ScreenUpdating = True
    
    
    MsgBox "ok"

試したこと

変数に.Cells(Row.Count, 2).End(xlUp).Rowを入れた

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

エクセル2007
今後この構文の続きにPDF化の構文を追加する予定です。

Comments

[coco_bauer]

Sheets(jj)とかSheets("jj")で使われている Sheets というのは何ですか？　それと Worksheets の関係はどうなっていますか？
また、コードのどこでエラーが発生するのですか？

「繰り返し処理をしたい為、for文を入れると」と言われても、プログラムには複数のfor文があるので、何が言いたいのか理解できません。

[退会済みユーザー]

エラー部分の追記と誤字の修正を行いました。
ご指摘ありがとうございます。

引き続きよろしくお願いいたします。

Answer 1

ここを

    Z = .Cells(Row.Count, 2).End(xlUp).Row
    Y = .Cells(Row.Count, 14).End(xlUp).Row

こうしましょう

    Z = .Cells(Rows.Count, 2).End(xlUp).Row
    Y = .Cells(Rows.Count, 14).End(xlUp).Row

Comments

[退会済みユーザー]

回答ありがとうございます。

ご指摘頂いた部分を修正したところ、同じエラーが出ている状態です。
エラー部分の追記等もさせて頂きましたので、お時間がございましたら
引き続きよろしくお願いいたします。

[退会済みユーザー]

ありがとうございます！
この部分のエラーがなくなりました！