autofill yardımı

[kadir78]

İyi günler.

vba autofill ile 1 yıllık tarih değeri oluşturmaya çalışıyorum yıl değerlerini yükseltiyor fakat gün değerleri aynı kalıyor çözemedim yardım edermisiniz.

Dim s1 As Worksheet, s2 As Worksheet
Dim trh As Range, trhs As Range, trhb As Range
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Set trh = s2.Range("A2")
Set trhs = s1.Range("B1:NC1")
Set trhb = s1.Range("B1")

trhb = "01.01." & trh
trhs.NumberFormat = "dd/mm/yyyy"
trhb.AutoFill Destination:=trhs