Protocol Macro - Button Event

Private Sub CommandButton1_Click()
    Sheets.Add(Before:=Sheets("Sheet0")).name = "Protocol"

    CopyData
    InsertColumns
    FormattingProtocol

    Dim lastRow As Integer
    lastRow = Cells(Rows.Count, 1).End(xlUp).row

    Dim countParticipants As Integer
    'countParticipantsLabel
    countParticipants = lastRow - 1
    countParticipantsLabel.Caption = countParticipants

    FillPracticalAndTheoreticalPoints (lastRow)

    'practicalPointsTB
    'theoreticalPointsTB
    Dim percentPracticalExam, percentTheoreticalExam As Integer
    percentPracticalExam = practicalPointsTB.Value
    percentTheoreticalExam = theoreticalPointsTB.Value
    CoursePoints lastRow, percentPracticalExam, percentTheoreticalExam

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

    SortData
End Sub