Help with loop

Wanting the input box repeat four times, that part of code works. However, I want the new values to be entered on the next empty row of worksheet of column 5 or ("E").
Ex:
Enter Weight of cavity #1
Answer: 325
Enter Weight of cavity #2
Answer: 328
Enter Weight of cavity #3
Answer: 563
Enter Weight of cavity #4
Answer: 569

Each answer should advance down in column 5.

Sub GetWeight()
    i = 0
    'Determine emptyRow
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    For i = 1 To 4
        Weight = InputBox("Enter Weight of cavity #" & i)
        Cells(emptyRow, 5).Value = Weight.Value (Runtime error 424 occurs here )
        If TieWeight = "" Then Exit Sub
    Next i
End Sub

Hope that make sense. Thanks to all for help.