Subtract dates VBA

[Av8tordude]

I'm using a formula to subtract dates from today. I would like to use a vba to go through each row (I3:I12) to calculate the days remaining from the dates in column (H3:H12). Greeatly appreciate any assistance. Thank you kindly

 

[MARK858]

Should also have posted the below as it is faster and simpler...

Sub Test3()
    With Worksheets("Options").Range("I3:I12")
        .FormulaR1C1 = "=IF(RC[-1]<>"""",TODAY()-RC[-1],"""")"
        .Value = .Value
    End With
End Sub

The difference between the 2 codes in the other post is one makes a function call using DATEDIFF, the other uses simple arithmetic.