Pokiaľ Ti ide o označenie čísel riadkov, tak Ti postačí toto:

Sub OznacenieR()
    For i = 1 To 6
        Range("E" & Range("A" & i) & ":E" & Range("B" & i)) = 1
    Next i
End Sub

ale postrádam zmysel obsahu stĺpca D.

Nemá sa náhodou testovať prítomnosť údaja v stĺpci D v intervaloch A-B?