Ｅｘｃｅｌ ＶＢＡで行追加後のＩｆ文

Ｂ列に”変更後”と情報があれば変更後とある行の１行下にデータを以下のようにＶＢＡで登録したいのですが、『Ｎｅｘｔに対応するＦｏｒがありません』と表示され前に進みません。
詳しい方教えてください。
＜私が記述したもの＞
Worksheets(1).Activate
Dim i As Long,j As Long

For i =1 To Cells(Rows.Count,2).End(xlUP).Row
For j =3 To 15

If Cells(i,2)="変更後” And Cells(i-1,j).value<>"" And Cells(i,j).Value=""Then
Cells(i+1,j).Value=Cells(i-1,j)Value
Else
If Cells(i,2)="変更後” And Cells(i-1,j).value<>"" And Cells(i,j).Value<>""Then
Cells(i+1,j).Value=Cells(i,j)Value
Else
If Cells(i,2)="変更後” And Cells(i-1,j).value="" And Cells(i,j).Value=""Then
Cells(i+1,j).Value=Cells(i,j)Value
Else
If Cells(i,2)="変更後” And Cells(i-1,j).value="" And Cells(i,j).Value<>""Then
Cells(i+1,j).Value=Cells(i,j)Value
End If

Next j
Nexti

End sub

No.5 回答者： GooUserラック 回答日時： 2017/12/06 20:24

「For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row」は「For i = 2 To C

ells(Rows.Count, 2).End(xlUp).Row」の間違いでは？

この回答へのお礼

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

お礼日時：2017/12/08 05:20

No.4 ベストアンサー 回答者： めぐみん_ 回答日時： 2017/12/06 20:23

取り敢えず、If の数と End If の数が違う。

要するに３個 End If が足りないと思うよ。

この回答へのお礼

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

お礼日時：2017/12/08 05:20

No.3 回答者： GooUserラック 回答日時： 2017/12/06 20:21

「End If」が３つ足りません。

この回答へのお礼

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

お礼日時：2017/12/08 05:21

No.2 回答者： GooUserラック 回答日時： 2017/12/06 20:11

「Value」の前に「.」無い所が数か所あります。

この回答へのお礼

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

お礼日時：2017/12/08 05:22

No.1 回答者： GooUserラック 回答日時： 2017/12/06 20:05

「Nexti」の「t」と「i」の間にスペースが無い

この回答へのお礼

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

お礼日時：2017/12/08 05:22