Option Explicit
Dim reanr
Private Sub nimevorm_show()
  reanr = 0
End Sub


Private Sub katkesta_Click()
  Nimevorm.Hide
End Sub

Private Sub korras_Click()
   reanr = reanr + 1
   Cells(reanr, 1) = nimi.Value
   Cells(reanr, 2) = hinne.Value
   nimi.Value = ""
   hinne.Value = ""
End Sub