Using evaluate using same style formula but different row number

I would like to use vba to do the calculation and input the value in column D

So basically it works like this

D2 has =IF(C2="","",C2-TODAY())
D3 has =IF(C3="","",C3-TODAY())
D4 has =IF(C4="","",C4-TODAY())

I got as far as this

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(3)) Is Nothing Then
        If Target.Value <> "" Then
            Cells(Target.Row, "D").Value = Evaluate("=IF(ISBLANK($C" & Target.Row & "),"""",$C" & Target.Row & "-TODAY())")
        End If
    End If
End Sub

but if I use the fill handle to bring the dates down I get a mismatch error 13 on this line of code

If Target.Value <> "" Then

*** forgot to mention this is suppose to be a event change so if the value in C changes it updates D


Thank you for looking