Visual Basic - RESTAR VALORES CON MACROS

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 For i = 2 To Range("B" & Rows.Count).End(xlUp).Row

    Cells(i, "D") = Cells(i, "B") - Cells(i, "C")

 Next

End Sub

if range("C9").value =  "" or range("b9").value =  "" then

             range("Celdadondevalarespuesta").value = ""

else

             range("Celdadondevalarespuesta").value =  range("C9").value - range("b9").value & " día"

end if

For i = 2 To Range("B" & Rows.Count).End(xlUp).Row

    if range("C"&i).value =  "" or range("b"&i).value =  "" then

             range("d"&i).value = ""

else

              range("d"&i).value =  range("C"&i).value - range("b"& i).value & " día"

end if

 Next