Eingabe überprüfen / Bereich angeben

Sub Test_1()
dim i as long
dim Anz as long
Dim Zelle as range
set Zelle = range("A1")
Anz =inputbox("Wert eingeben")
for i = 1 to Anz
zelle.offset(i,0).value = zelle.value +i
next
End Sub

Zwei Sachen:
Ich möchte das nur eine ganze Zahl zwischen 1 und 20 eingegeben werden kann, wenn nicht Fehlermeldung und erneute Eingabe möglich.
Mein Ansatz war ein Makro aufzeichnen zulassen mit der Datenüberprüfung.
Konnte dann aber das ganze nicht miteinander verschachteln.
Mit If then kam immer eine Fehlermeldung If Block nicht fertig.
Wenn ich später einen Rahmen um das ganzen machen möchte muss ich wissen wie gross der benutzte Bereich ist.
Ist es möglich eine Variable zu erhalten?
Benutzer Bereich (A1:A10) wenn ich die Zahl 10 eingegeben habe?
Einem zweiten Schritt möchte ich dann nämlich einen Rahmen um den Bereich (A1:C10) Zeichen lassen wenn man das Beispiel von oben weiterführt.
Wenn jemand eine Idee hat, wäre ich dankbar.
Gruss Roger