Yes, "date" is the system  date. When you say "Date = something", you
are changing  your system date. Try looping like this:

Sub Test()
TempDate = date  - 1
For i = 1 To 385
Range("A" & i).Value = TempDate + i
Next i
End Sub