Private Sub CommandButton4_Click()
  Dim nr, hinne
  Range("a2:a100").Clear
  nr = 2
  Do
    hinne = InputBox("Sisesta hinne")
    Cells(nr, 1) = hinne
    nr = nr + 1
  Loop Until hinne = ""
End Sub
