SUM Inputted Values from VBA in Separate Cell

[Unlucky-Phase]

Hello,

Just looking for some help with the following. I have a table with 3 columns. First is yesterdays date, second is an inputted value say 20 from another sheet, third is a inputted value from another sheet say 40, and the fourth = second+third so should be 60.
The values will change. So I just need to update the last empty cell each time. Although I can't seem to get SUM working for the last two cells in Column C6 & D6. Has to start from 6 as there are gaps before in the sheet that it will try to fill. Any help would be appreciated.

Range("B6").End(xlDown).Offset(1, 0).Value = Date - 1

Range("C6").End(xlDown).Offset(1, 0).Value = Sheets("Tracker").Range("E4").Value
Range("D6").End(xlDown).Offset(1, 0).Value = Sheets("Tracker").Range("D4").Value

Range("E6").End(xlDown).Offset(1, 0).Value = Application.Sum(Sheets("Tracker").Range("D4").Value, Sheets("Tracker").Range("E4").Value)

 

[DanteAmor]

How about

Sub test()
  Dim lr As Long
  lr = Range("B" & Rows.Count).End(3).Row + 1
  If lr < 6 Then lr = 6
  With Sheets("Tracker")
    Range("B" & lr).Value = Date - 1
    Range("C" & lr).Value = .Range("E4").Value
    Range("D" & lr).Value = .Range("D4").Value
    Range("E" & lr).Value = .Range("E4").Value + .Range("D4").Value
  End With
End Sub