Help! Create Table with variable rows in VBA

Hi All
I need some help to figure out how I can create a Tabel I VBA.
I need the table to contain the number of rows that the user is typing in an InputBox. Can anyone help me?
My code i so far:

Sub NumberOfStudents()
'Denn Macro afspiller den indledning som der skal være for at få informationer til de nye pladser.
Dim Number As Integer
Dim Klasse As String
Dim Message As String

Klasse = InputBox("Angiv venligst klassens nummer")
Number = InputBox("Angiv venligst antal af elever i deres klasse")
If Number <= 2 Then
MsgBox ("Der er vist ingen grund til at lave nye pladser")
Else
MsgBox ("I " & Klasse & " er der " & Number & " elever")
End If
'Macroen skal laves så programmet lukker, hvis at der ikke udfyldes mere en 2 elever.

MsgBox ("Du bedesvenligst udfylde navnene på dine elever i tabellen der vises når du klikker OK")

End Sub



Sub ActivateInsertRow()

Dim wrksht As Worksheet
Dim objList As ListObject
Dim objListRng As Range

objListRng = Number


Set wrksht = ActiveWorkbook.Worksheets(1)
Set objList = wrksht.ListObjects(1)
Set objListRng = objList.InsertRowRange

If objListRng Is Nothing Then
ActivateInsertRow = False
Else
objListRng.Activate
ActivateInsertRow = True
End If

End Sub

Thanks!

Hi and welcome to the forum
Unfortunately your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)