Event - Command Button

Private Sub cb_Click()
Dim lastRow As Integer
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    Sheets.Add(Before:=Sheets("Sheet0")).Name = "Protocol"

    CopyData
    InsertColumns
    FormatHeader (lastRow)

    PracticalAndTheoreticalPoints (lastRow)
    'practicalExamTB
    'theoreticalExamTB
    Dim percentPractical, percentTheoretical As Integer
    percentPractical = practicalExamTB.Value
    percentTheoretical = theoreticalExamTB.Value
    CoursePoints lastRow, percentPractical, percentTheoretical

    'pointsFor5TB
    'pointsFor3TB

    Dim pointsFor5, pointsFor3 As Integer
    pointsFor5 = pointsFor5TB.Value
    pointsFor3 = pointsFor3TB.Value
    Grade lastRow, pointsFor5TB, pointsFor3TB

    CoursePLab.Caption = lastRow - 1
End Sub