Sum a Dynamic Range

[Suzette]

Hi, I have table which changes on a daily basis. It may have 600 rows today and 700 the next day. To capture it all I used a safe 800 rows to capture but run the risk if data goes over 800. How can I resolve this?

Sub SumRange()
Sheets("AIC Jamaica").Select
    Range("K3").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[8]C[-4]:R[797]C[-4])"
    Range("K4").Select

End Sub