Sub EcritDate()
Dim diff&
Dim i&
Dim R As Range
Dim T()
ActiveSheet.Range("a10:a65536").ClearContents
diff& = Range("b4") - Range("a4")
Set R = ActiveSheet.Range("a10:a" & 10 + diff& & "")
ReDim T(1 To diff& + 1, 1 To 1)
T(1, 1) = CLng(Range("a4"))
For i& = 2 To diff& + 1
T(i&, 1) = T(i& - 1, 1) + 1
Next i&
R = T
R.NumberFormat = "dd/mm/yy"
End Sub