Çözüldü VBA ile Her Hücreye Farklı Takvim Sonucu Yazdırma

Arkadaşlar,
Ekli dosyada hücreye çift tıklayınca açılan ve hatasız çalışan bir hücreye takvim uygulaması var.
Bu uygulamanın kodunu aşağıdaki kod satırları ile nasıl bütünleştirmeliyim?

Aşağıdaki satırları denedim hatasız çalışıyorlar fakat kodla bütünleştiremedim.
Yardımlarınızı rica ederim.

M39 ve M51 hücrelerine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy")
M42 hücresine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy") & " - " & Format(tarih + 4, "dd.mm.yyyy")
M44 hücresine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy") & " - " & Format(tarih + 14, "dd.mm.yyyy")
M45 hücresine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy") & " - " & Format(tarih + 4, "dd.mm.yyyy")
M49 hücresine çift tıklayıp tarih seçince: Target = Format(tarih - 1, "dd.mm.yyyy") & " Saat 13.00'ten Sonra - " & Format(tarih + 2, "dd.mm.yyyy")
M50 hücresine çift tıklayıp tarih seçince: Target = Format(tarih - 1, "dd.mm.yyyy") & " Saat 13.00'ten Sonra - " & Format(tarih + 3, "dd.mm.yyyy")


Uygulamanın Kodu: