Sub CommandButton1_Click()
  Cells(2, 1) = InputBox("Sisesta hinne")
End Sub