ネストしているforが飛ばされる

前提・実現したいこと

for文を複数個ネストして処理を完了させたい

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

ネストしているfor文が読み込まれない
ステップインにて見てみるとネスト部分(For k = 8 To Sheets(jj).Cells(Rows.Count, 9).End(xlUp).Row + 1)
に黄色のマーカーが入るのですが、その後すぐにNext KKに行ってしまいます

該当のソースコード

vba
1    Dim jj, k, kk, num1, num2 As Variant
2    For jj = 1 To Worksheets.Count
3    
4        '雛形シートをコピー
5        Worksheets("雛形").Copy After:=Worksheets("雛形")
6    
7        '振込日
8        A = Format(Date, "mm/")
9        
10        With Worksheets(jj)
11        Z = .Cells(Rows.Count, 2).End(xlUp).Row
12        Y = .Cells(Rows.Count, 14).End(xlUp).Row
13        End With
14        
15        Dim wb1 As Workbook
16        Set wb1 = Workbooks("請求書作成資料.xlsm")
17        
18        For kk = 6 To Sheets(jj).Cells(Rows.Count, 6).End(xlUp).Row + 1
19        Debug.Print (kk)
20        For k = 8 To Sheets(jj).Cells(Rows.Count, 9).End(xlUp).Row + 1
21        Debug.Print (k)
22        AA = Worksheets(jj).Range("D2")
23        BB = Worksheets(jj).Range("H" & k)
24        mm = Format(Date, "mm")
25    
26        
27            If AA = wb1.Worksheets("印紙台帳").Range("H" & kk) And BB = wb1.Worksheets("印紙台帳").Range("I" & kk) Then
28                If mm = wb1.Worksheets("印紙台帳").Range("L" & kk) Then
29                    Worksheets(jj).Range("V" & k) = wb1.Worksheets("印紙台帳").Range("F" & kk)
30                    Worksheets(jj).Range("W" & k) = wb1.Worksheets("印紙台帳").Range("G" & kk)
31                    wb1.Worksheets("印紙台帳").Range("E:L" & kk).Interior.Color = RGB(200, 200, 200)
32                End If
33            End If
34            
35            '計画
36            If AA = wb1.Worksheets("計画").Range("C" & kk) And BB = wb1.Worksheets("計画").Range("D" & kk) Then
37                If mm = wb1.Worksheets("計画").Range("I" & kk) Then
38                    Worksheets(jj).Range("T" & k) = wb1.Worksheets("計画").Range("F" & kk)
39                    wb1.Worksheets("計画").Range("A:I" & kk).Interior.Color = RGB(200, 200, 200)
40                End If
41            End If
42            
43            '受験料
44            If AA = wb1.Worksheets("受験料").Range("C" & kk) And BB = wb1.Worksheets("受験料").Range("D" & kk) Then
45                If mm = wb1.Worksheets("受験料").Range("L" & kk) Then
46                    Worksheets(jj).Range("V" & k) = wb1.Worksheets("受験料").Range("H" & kk)
47                    wb1.Worksheets("受験料").Range("A:L" & kk).Interior.Color = RGB(200, 200, 200)
48                End If
49            End If
50        
51            '検診
52            If AA = wb1.Worksheets("診断").Range("F" & kk) And BB = wb1.Worksheets("雇入れ検診").Range("G" & kk) Then
53                If mm = wb1.Worksheets("健診").Range("J" & kk) Then
54                    Worksheets(jj).Range("U" & k) = wb1.Worksheets("健診").Range("C" & kk)
55                    wb1.Worksheets("健診").Range("A:J" & kk).Interior.Color = RGB(200, 200, 200)
56                End If
57            End If
58        
59            Workbooks("請求書作成資料.xlsm").Save
60            Workbooks("請求書作成資料.xlsm").Close
61        Set ws1 = Nothing
62    
63            '請求書作成
64            
65            B = Right(Sheets(jj).Range("G" & k), 2)
66                'ヘッダー
67                With Worksheets("雛形 (2)")
68                .Range("AA1") = Format(Date, "yyyy年mm月") & Worksheets(jj).Range("E8") & "日"
69                .Range("B1") = Worksheets(jj).Range("L2")
70                .Range("A2") = Worksheets(jj).Range("L3")
71                .Range("B4") = Worksheets(jj).Range("D2")
72                
73                '内容
74                For num1 = 13 To Z Step 1
75                For num2 = 14 To Y Step 1
76                    If Worksheets(jj).Range("J" & k) <> "" Then
77                        .Range("N" & num1) = Worksheets(jj).Range("H" & k)
78                        .Range("V" & num1) = Worksheets(jj).Range("J" & k) + Worksheets(jj).Range("K" & k)
79                        .Range("R" & num2) = Worksheets(jj).Range("C" & k)
80                        .Range("P" & num2) = A + B
81                        .Range("Z" & num1) = Worksheets(jj).Range("I" & k)
82                    End If
83                    
84                    '日割り計算用
85                    If Worksheets(jj).Range("AD" & k) <> "" Then
86                        C = Worksheets(jj).Range("K" & k) * 12 / 365
87                        D = C * Worksheets(jj).Range("AD" & k)
88                        
89                        E = Worksheets(jj).Range("J" & k) * 12 / 365
90                        F = E * Worksheets(jj).Range("AD" & k)
91                        
92                        .Range("V" & num1) = D + F
93                    End If
94                
95                    '日割り計算マイナス用
96                    If Worksheets(jj).Range("AE" & k) <> "" Then
97                        G = Worksheets(jj).Range("AE" & k) * 12 / 365
98                        H = G * Worksheets(jj).Range("AE" & k)
99                        O = Worksheets(jj).Range("J" & k) - H
100                        
101                        P = Worksheets(jj).Range("AE" & k) * 12 / 365
102                        Q = P * Worksheets(jj).Range("AE" & k)
103                        R = Worksheets(jj).Range("J" & k) - Q
104                        
105                      
106                        S = Q + H
107                        'ここに請求書に入れ込む構文を入れる
108                        
109                    End If
110                    
111                    'シート名を変更
112                    .Range("D57") = Worksheets(jj).Range("F8")
113                    .Name = Worksheets(jj).Range("D2")
114                    
115                    
116                Next num2
117                Next num1
118                End With
119            Next k
120        Next kk
121