Assuming entry is prompted by a
CommandButton:

Private Sub CommandButton1_Click()
Dim strIn As String
Do
strIn = InputBox("Enter data.")
iRow = iRow + 1
Sheets("Sheet1").Cells(iRow, 1) = strIn
Loop Until strIn = ""
End Sub

HTH,
Merjet