VBA 行を挿入してコピーをする 1行目と２行目が反映されない

Question

C列に日付が入っています。その該当する月（K1に例えば3月1日を入れる）がある場合、次の行にセルをコピーするということをしたいのですが、以下のコードを使用すると1行目と2行目が反応せず、3行目からコピーがされます。

　　A　　B　　　C　　　　D　　　　E
１　あ　　　　3/31　　　　　　　3/1
２　い　　　　3/31
３　う　　　　3/31　　　　　　　　　→この行から行の挿入がされて４行目にコピーされます。
４　え　　　　2/21
５　お　　　　3/23

お手数ですが、ご指導よろしくお願いします。

    Dim mx As Long
Dim i As Long
Application.ScreenUpdating = False
mx = Range("C" & Rows.Count).End(xlUp).Row
For i = mx To 3 Step -1

If Cells(i, "C").Value <> "" And Format(Cells(i, "C").Value, "yyyymm") = Format(Cells(1, "E").Value, "yyyymm") Then
Rows(i).Copy
Rows(i + 1).Insert Shift:=xlDown
End If
Next
End Sub

Answer 1

プログラムは書いたとおりにしか動きません。
3行目で止めているのでそうなります。

-    For i = mx To 3 Step -1
+    For i = mx To 1 Step -1

Comments

[minako_tera]

たいへん失礼いたしました。初歩的なミスでした
ご指摘いただきありがとうございます。