date = InputBox("年月日を入力してください。");

for (y = 13; y <= Bottom; y++) {
  [1,y] = date;
}