日付セルの日数差でコピー入力を変えたい

Excelの日付B1セルに1～3日後の日付を入力したとき表-2のように基準2行目のAを それぞれ1～3日後（3～5行目）にコピーしたいのですが。表-3は例として1月3日を 入力した際、以前の1月1日がずれその差２を基にコピーを２行ずらしでしたらと 思ったのですが、どなたかVBAコードで良い方法が解る方よろしくお願いします。