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