VBA Code To Automatically Update Using A Vlookup

I'm trying to write a VBA code to automatically update using a vlookup but I seem to be running into trouble, partically with the lookup value part of my vlookup. I basically have a range of dates in column B and want the values to appear in column C. Yes, I know I just type the forumla in column C and drag it down, but I really need to do it in VBA, as I want this to update when additional dates are added.

This is what I have thus far. The code keeps looping at i = i +1 and doesn't stop unless interuppted.

Sub update()
Dim i As Integer, L() As Range, s As Integer, V As Double
Sheets(1).Activate
s = Range("D:D").Select
On Error Resume Next
While s ""
i = i + 1
ReDim Preserve L(i To 1)
L(i) = s
Wend
If i = 0 Then
MsgBox "No dates found"
End If
Exit Sub

For i = 1 To UBound(L)
V = WorksheetFunction.VLookup(s, Range("Inputs"), 2, 0)
Next i
End Sub