If Then else..

Fått för mig att alla If Then else satser avslutas med End if !?

Varför inte i denna? För att jag inte blandat in Else?
Funkar ju i och för sig :-)

Sub JanuariKalkyl()
    If ActiveCell.Offset(0, 1).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(0, 1). _
                FormulaR1C1 = "Januari"
    If ActiveCell.Offset(1, 0).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(1, 0). _
                FormulaR1C1 = "Kassa"
    If ActiveCell.Offset(1, 1).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(1, 1). _
                FormulaR1C1 = "40000"
    If ActiveCell.Offset(2, 0).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(2, 0). _
                FormulaR1C1 = "Hyra"
    If ActiveCell.Offset(2, 1).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(2, 1). _
                FormulaR1C1 = "8000"
    If ActiveCell.Offset(3, 0).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(3, 0). _
                FormulaR1C1 = "Material"
    If ActiveCell.Offset(3, 1).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(3, 1). _
                FormulaR1C1 = "5000"
    If ActiveCell.Offset(4, 0).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(4, 0). _
                FormulaR1C1 = "Lön"
    If ActiveCell.Offset(4, 1).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(4, 1). _
                FormulaR1C1 = "20000"
    If ActiveCell.Offset(5, 0).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(5, 0). _
                FormulaR1C1 = "Resultat"
    If ActiveCell.Offset(5, 1).FormulaR1C1 _
        = "" Then _
            ActiveCell.Offset(5, 1). _
                FormulaR1C1 = _
                "=R[-4]C-R[-3]C-R[-2]C-R[-1]C"
End Sub