Zahlenwerte automatisch in Tabelle anzeigen lassen

Sub Makro1()
start:
On Error Resume Next
Dim a, b, c, d As Integer
Dim zelle As Range
a = InputBox("Geben Sie die Länge in cm ein", "Länge(cm)")
b = InputBox("Geben Sie die Breite in cm ein", "Breite(cm)")
c = InputBox("Geben Sie die Drehung (Schräge) in Grad ein", "Drehung")
d = InputBox("Geben Sie den Namen ein", "Name")
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 80, 80, 80#, 40). _
Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = a
Range("B53").Value = a
Selection.ShapeRange.Width = b
Range("D53").Value = b
Selection.ShapeRange.Rotation = c
Selection.ShapeRange.Name = d
Selection.Characters.Text = Selection.ShapeRange.Name
With Selection.Characters(start:=1, Length:=30).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
Application.ScreenUpdating = True
weiter = MsgBox("Wollen Sie weiterzeichnen?", vbYesNo, "Weiter?")
If weiter = vbYes Then
GoTo start
Else:
Exit Sub
End If
End With
End Sub

Mein Problem ist nun, das die Werte, welche durch den Anwender in der Inputbox eingetragen werden, automatisch in einer Tabelle erscheinen sollen.
Für eine konkreter Zellenbezug habe ich das zwar soweit hinbekommen ( Range("B53").Value = a). Da aber mehrere Eingaben (mehrere Rechtecke) im selben Prozess eingetragen werden möchte diese Werte untereinader in der Tabelle angezeigt bekommen. Wie erstelle ich hierfür eine Schleife?
Vielen dank für hilfreiche Tipps von Euch!