Range("E11").Resize(Range("D3").Value, 1).Value = "j"

Alternativ lösning om du vill slippa makro.

Skriv in följande formel i E11 och kopiera ner så många rader som det är rimligt att någon skriver något i D3

=OM(OCH(RAD()>=11;RAD()<=($D$3+11));"j";"")

Eller så här om du vill vara tydlig med vad 11 kommer ifrån: 

=OM(OCH(RAD()>=RAD(E11);RAD()<=($D$3+RAD(E11)));"j";"")