質問者が納得ここまでProgramが進むとなかなか状況の把握が難しいですが
Set pstCell1 = Worksheets("sheet2").Range("D6:D36").Find(What:=tgtDate, LookAt:=xlWhole)
のところのtgtDateが怪しいのではないでしょうか。この行にBreakPoint（F9）を設定して、cpyRnge15～19の場合にpstCell1にどんな値がセットされているか確認されると良いと思います。（ウオッチウインドウで...
4100日前view3
