Yes you can (and should) name the tables. The following is your macro, with the data that cannot be established from the listing commented out. It creates three formatted (and named) tables

Option Explicit

Private Sub cmd_next2_Click()    ' Next button (2)
Dim i As Integer, k As Integer
Dim s_aims As String
Dim oDoc As Document
Dim oRng As Range
Dim oTable1 As Table
Dim oTable2 As Table
Dim oTable3 As Table

    Set oDoc = ActiveDocument

    'k = 0

    'ReDim aims(lst_aims.ListCount - 1)
    'For i = 0 To lst_aims.ListCount - 1

    '    If lst_aims.Selected(i) = True Then

    '        aims(k) = lst_aims.List(i, 0)
    '        k = k + 1

    '       If s_aims = "" Then
    '           s_aims = (i + 1) & ". " & lst_aims.List(i, 3)
    '       Else
    '           s_aims = s_aims & vbCrLf & (i + 1) & ". " & lst_aims.List(i, 3)
    '       End If

    '   End If

    'Next i

    oDoc.Range.InsertParagraphAfter
    Set oRng = oDoc.Range
    oRng.Collapse 0

    Set oTable1 = oDoc.Tables.Add(Range:=oRng, numRows:=2, numColumns:=2)

    With oTable1
        .Columns(1).PreferredWidth = CentimetersToPoints(4.5)
        .Columns(1).Shading.BackgroundPatternColor = RGB(192, 192, 192)
        .Columns(1).Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Columns(1).Cells(1).Range.Bold = True
        .Columns(1).Cells(1).Range.Text = "Assignment Title:"

        .Columns(1).Cells(2).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Columns(1).Cells(2).Range.Bold = True
        .Columns(1).Cells(2).Range.Text = "Assessor:"

        .Columns(2).PreferredWidth = CentimetersToPoints(11.5)
        '.Columns(2).Cells(1).Range.Text = txt_number.Value & ": " & txt_title.Value
        '.Columns(2).Cells(2).Range.Text = cmb_assessor.Value

        .Borders.InsideLineStyle = wdLineStyleSingle
        .Borders.OutsideLineStyle = wdLineStyleSingle
    End With

    oDoc.Range.InsertParagraphAfter
    Set oRng = oDoc.Range
    oRng.Collapse 0

    ' Create and populate the second table on the form
    Set oTable2 = oDoc.Tables.Add(Range:=oRng, numRows:=3, numColumns:=2)
    With oTable2
        .Columns(1).PreferredWidth = CentimetersToPoints(4.5)
        .Columns(1).Shading.BackgroundPatternColor = RGB(192, 192, 192)
        .Columns(1).Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Columns(1).Cells(1).Range.Bold = True
        .Columns(1).Cells(1).Range.Text = "Date Issued:"
        .Columns(1).Cells(2).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Columns(1).Cells(2).Range.Bold = True
        .Columns(1).Cells(2).Range.Text = "Hand-In Date:"
        .Columns(1).Cells(3).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Columns(1).Cells(3).Range.Bold = True
        .Columns(1).Cells(3).Range.Text = "Duration (Approx.):"
        .Columns(2).PreferredWidth = CentimetersToPoints(11.5)
        .Columns(2).Cells(2).Split 1, 3
        .Rows(2).Cells(3).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Rows(2).Cells(3).Shading.BackgroundPatternColor = RGB(192, 192, 192)
        .Rows(2).Cells(3).Range.Bold = True
        .Rows(2).Cells(3).Range.Text = "Assessment Date:"
        .Borders.InsideLineStyle = wdLineStyleSingle
        .Borders.OutsideLineStyle = wdLineStyleSingle
    End With
    ' Create and populate the third table on the form
    oDoc.Range.InsertParagraphAfter
    Set oRng = oDoc.Range
    oRng.Collapse 0

    ' Create and populate the third table on the form
    Set oTable3 = oDoc.Tables.Add(Range:=oRng, numRows:=3, numColumns:=2)
    With oTable3
        .Columns(1).PreferredWidth = CentimetersToPoints(4.5)
        .Columns(1).Shading.BackgroundPatternColor = RGB(192, 192, 192)
        .Columns(1).Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Columns(1).Cells(1).Range.Bold = True
        .Columns(1).Cells(1).Range.Text = "Qualification Covered:"
        .Columns(1).Cells(2).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Columns(1).Cells(2).Range.Bold = True
        .Columns(1).Cells(2).Range.Text = "Units Covered:"
        .Columns(1).Cells(3).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Columns(1).Cells(3).Range.Bold = True
        .Columns(1).Cells(3).Range.Text = "Learning Aims Covered:"
        .Columns(2).PreferredWidth = CentimetersToPoints(11.5)
        '.Columns(2).Cells(1).Range.Text = myCourse.Title
        '.Columns(2).Cells(2).Range.Text = lst_unit.List(lst_unit.ListIndex, 1)
        '.Columns(2).Cells(3).Range.Text = s_aims
        .Borders.InsideLineStyle = wdLineStyleSingle
        .Borders.OutsideLineStyle = wdLineStyleSingle
    End With

    'Me.tabs_info.Pages(2).Visible = True
    'Me.tabs_info.Pages(1).Visible = False

    'If edit_data = True Then
    '    set_dates issue_date, handin_date, assessment_date
    'Else
    '    set_dates Date, DateAdd("d", 14, Date), DateAdd("d", 14, d_handin.Value)
    'End If
End Sub