Gün sayısına göre tarih bulma

[sirkülasyon]

Aşağıda ki kod ile iki tarih arası gün farkını, gün farkına göre de yıl ay ve gün durumunu buluyorum. Ancak;
D4 hücresinde ki tarih : 18.02.2013
I4 hücresinde ki Gün Sayısı : 201

C5 hücresine 19/02/2013
D5 hücresine 201 gün sonrasına ait tarihi almak için aşağıda ki koda ekleme yapmak istiyorum. Rica etsem yardımcı olabilir misiniz?

If Not Intersect(Target, [C4:D20]) Is Nothing Then
sat = Target.Row
Cells(sat, "E") = Day(Cells(sat, "D")) + 30 * Month(Cells(sat, "D")) + 360 * Year(Cells(sat, "D")) - (Day(Cells(sat, "C")) + 30 * Month(Cells(sat, "C")) + 360 * Year(Cells(sat, "C")))
Cells(sat, "F") = Int(Cells(sat, "E") / 360)
Cells(sat, "G") = Int((Cells(sat, "E") - Int(Cells(sat, "E") / 360) * 360) / 30)
Cells(sat, "H") = Cells(sat, "E") - Int(Cells(sat, "E") / 360) * 360 - Int((Cells(sat, "E") - Int(Cells(sat, "E") / 360) * 360) / 30) * 30

 

[FERAZ]

[d5] = CDate(CLng([C5] + 201))

 

[FERAZ]

Cells(sat, "D") = CDate(CLng(Cells(sat, "C") + 201))