VBAのエラー解消方法について

Question

マクロを使用して下記繰り返し作業を自動化することを考えています。
条件
0. 契約日～解約日まで1が月ごとに'別シート'に元シートのA2～AB2値を自動にコピー＆ペースト
0. A3～AB3の場合も同様に契約日～解約日(解約日の値がない場合は今日まで繰り返す)まで1カ月ごとに'別シート'にレコード自動作成を繰り返す
例えばA2の場合2013/8,2013/9/,2013/10,2013/11...2021/2の様に契約日～今日まで1が月ごとに'別シート'に契約レコード自動作成

下記VBAを実装した所、添付画像の通りエラーが発生しておりエラーの解決方法についてご教示いただけますと幸いです。
元シート

発生したエラー

デバッグ結果

コード

Sub Sample2()
    Dim moto As Worksheet
    Dim lastRow, i
    Set moto = Sheets("元シート")
    lastRow = moto.Cells(Rows.Count, 2).End(xlUp).Row
    Dim saki As Worksheet, outRow As Long
    Set saki = Sheets.Add(, moto)
    moto.Range("A1:AB1").Copy saki.Range("A1:AB1")
    outRow = 2
    For i = 2 To lastRow
        Dim startDate As Date
        Dim endDate As Date
        Dim repeatCount As Long
        startDate = moto.Cells(i, 4)
        If IsEmpty(moto.Cells(i, 5)) Then
            endDate = Date
        Else
            endDate = moto.Cells(i, 2)
        End If
        repeatCount = DateDiff("m", startDate, endDate)
        Dim j As Long
        For j = 0 To repeatCount
            saki.Cells(outRow, 1) = DateAdd("m", j, moto.Cells(i, 1))
            saki.Cells(outRow, 2) = moto.Cells(i, 2)
            saki.Cells(outRow, 3) = moto.Cells(i, 3)
            saki.Cells(outRow, 4) = moto.Cells(i, 4)
            saki.Cells(outRow, 5) = moto.Cells(i, 5)
            saki.Cells(outRow, 6) = moto.Cells(i, 6)
            saki.Cells(outRow, 7) = moto.Cells(i, 7)
            saki.Cells(outRow, 8) = moto.Cells(i, 8)
            saki.Cells(outRow, 9) = moto.Cells(i, 9)
            saki.Cells(outRow, 10) = moto.Cells(i, 10)
            saki.Cells(outRow, 11) = moto.Cells(i, 11)
            saki.Cells(outRow, 12) = moto.Cells(i, 12)
            saki.Cells(outRow, 13) = moto.Cells(i, 13)
            saki.Cells(outRow, 14) = moto.Cells(i, 14)
            saki.Cells(outRow, 15) = moto.Cells(i, 15)
            saki.Cells(outRow, 16) = moto.Cells(i, 16)
            saki.Cells(outRow, 17) = moto.Cells(i, 17)
            saki.Cells(outRow, 18) = moto.Cells(i, 18)
            saki.Cells(outRow, 19) = moto.Cells(i, 19)
            saki.Cells(outRow, 20) = moto.Cells(i, 20)
            saki.Cells(outRow, 21) = moto.Cells(i, 21)
            saki.Cells(outRow, 22) = moto.Cells(i, 22)
            saki.Cells(outRow, 23) = moto.Cells(i, 23)
            outRow = outRow + 1
        Next
    Next
    With saki.UsedRange
        .EntireColumn.AutoFit
    End With
End Sub```

Answer 1

エラーが発生しているこの部分について。

        If IsEmpty(moto.Cells(i, 5)) Then
            endDate = Date
        Else
            endDate = moto.Cells(i, 2)
        End If

ターゲットの行の5列目のセル（解約日）が空の場合は現在日時、そうでない場合は2列目のセル（ID）をendDateにセットしているプログラムに読めます。
VBAはある程度の自動変換機能があるので日付っぽい文字列は自動的に日付に変換されますが、この4行目に入っているIDはどう頑張っても日付に変換することができない文字列なので「（String型とDate型で）型が一致しない」というエラーが発生します。

そもそも実行したい処理とコードが大きく異なっている気もします。設計から見直してみましょう。

Answer 2

デバッグするときには、
イミディエイトウィンドウか、エラーが起きる直前の行で、
Debug.Print moto.Cells(i, 2)
みたいにして確認していきましょう。

答えを言うと、
エラーが出ているのは、

契約日～解約日(解約日の値がない場合は今日まで繰り返す

の部分。

        If IsEmpty(moto.Cells(i, 5)) Then  '解約日の値がない場合は
            endDate = Date                 'endDate（月数を計算するための変数）に「今日」を入れる
        Else                               'そうでなければ
            endDate = moto.Cells(i, 2)     'endDate（月数を計算するための変数）に「解約日の値」を入れる
        End If

正しくはmoto.Cells(i, 5)だと思います。
最初の質問のときとレイアウトが変わっているのに追随できていない

Comments

[Rinriinrinrin]

jinojiさんご回答ありがとうございます！
アドバイスいただいた通り、下記値を修正した所エラー解決いたしました！
endDate = moto.Cells(i, 2) →　endDate = moto.Cells(i, 5)
ご指導いつもありがとうございます！！！

またデバッグする際の手順についてのアドバイスありがとうございます。
今後エラーが起きる直前の行で、Debug.Print moto.Cells(i, 2)の様に確認していきます！
今後ともよろしくお願いいたします。

Answer 3

変数endDateがDate型で宣言されていますが、moto.Cels(i,2)は元シートの2列目、つまりB列のIDを見ています。そのため、「Date型にこの文字列は入らないよ」とVBAに怒られています。

おそらくですが、ここはmoto.Cells(i,1)の間違いではないですか？