【VBA】For Next と If

Sub 条件判定()

　　Dim i As Long
　　For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

 　　　　If Cells(i, 4) = "" Then
　　　　　　Cells(i, 5) = "キャンセル"

　　　　 ElseIf Cells(i, 4) = "完了" Then
　　　　　　Cells(i, 5) = "完了"
　　　　 
　　　　　Else　　　　
　　　　End If
　　Next　i

End Sub