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!