ありがとうございます。
実は、以前教えて頂いた日付計算の方法 を使用し、作成中なのですが、 以下のエラーが出るようになってしまいました。 デバックでは作業時間が掛かるので、 エラー直前の値が見る為に、このExcelへの書き込みを入れました。
現在のエラー