Private Sub CommandButton5_Click()
  Dim nr, hinne
  nr = ActiveSheet.UsedRange.Rows.Count + 1
  Do
    hinne = InputBox("Sisesta hinne")
    Cells(nr, 1) = hinne
    nr = nr + 1
  Loop Until hinne = ""
End Sub