Range("D2:D6").Value = Array("国", "数", "理", "社", "英")

エクセルのマクロでこうやって入力すると全部国ってなってしまいます
Ｄ２が国Ｄ３が数Ｄ４が理って具合になればいいんですが
どうすればいいんですか？