実行時エラー1004列での乗算のループ

Question

2つの列にif else文を掛けるコードを設計しましたが、error 1004をL = Cells(i, "L").Valueに取得しています。なぜこれが起こっているのかを明確にする必要があります。 これはコードです！

Sub IfCalculationEq1() 

    Dim lastrow As Long 

    Application.ScreenUpdating = False 
    Dim i As Long 
    Dim L As Long 
    Dim E As Long 


    lastrow = Cells(Rows.Count, "L").End(xlUp).Row 

    L = Cells(i, "L").Value 
    E = Cells(i, "E").Value 

    For i = 3 To lastrow 

    If Cells(i, "K").Value = "-" Then 

    Cells(i, "N").Value = "-" 

    Else 

    Cells(i, "N").Formula = "=L*E" 

    Application.ScreenUpdating = True 

    ' If k is null then no action required or else L1*E3 

    End If 

    Next 

End Sub 

Answer 1

i線L = Cells(i, "L").Valueでunititializedので、セルアレイが1基づいて0の値を有しています。