Rij toevoegen aan tabel met messagebox en check

[stefano]

Ik ben op zoek naar een vba-code die de onderste rij in een tabel kopieert en ze daarna 1 rij lager plakt.
Na het plakken zou ik 3 messageboxen willen krijgen die de waarde invullen in de nieuwe rij kolom A, dan één voor kolom B, dan één voor kolom C.
In kolommen D en E staan formules die dan reeds ter beschikking zijn.

Bij de eerste messagebox had ik graag de beperking toegevoegd: ingevoegde waarde moet tussen 10000 en 19999 liggen)

Kan iemand me hier bij helpen.

Om een rij te deleten heb ik al wat ineen geknutseld. Hopelijk goed.

Voorbeeldbestand in bijlage.

Dank alvast voor de hulp

 

[HSV]

Ik zou een Userform maken, maar goed.

Sub hsv()
 Blad1.ListObjects(1).ListRows.Add.Range.Resize(, 3) = Array(InputBox("10000-19999"), InputBox("getal"), InputBox("nog een getal"))
End Sub

 

[stefano]

Dank alvast.

ik krijg een fout 9 tijdens uitvoering
Het subscript valt buiten het bereik

Hoe kan ik dit vermijden?

dank!

 

[HSV]

Door er een echt tabel van te maken.

 

[stefano]

Opgelost, dank je wel Harry!!