Excel - Como puedo juntar estudiantes de hoja 1 a estudiantes de hoja 2 y ordenarlos por orden alfabetico

Private Sub Worksheet_Activate()   Se ejecuta cuando seleccionas la hoja.

                                   solo ordena actives la hoja.

Private Sub Worksheet_Calculate()  Se ejecuta cada vez que se realiza un cambio.

                                   Puede reelentzar el trabajo.

Private Sub Worksheet_Activate()

    Columns("A:G").Select

    Selection.AutoFilter

    ActiveSheet.Range("$A$1:$G$61").AutoFilter Field:=3, _

                                               Criteria1:="<>"

    ActiveWorkbook.Worksheets("1º").AutoFilter.Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("1º").AutoFilter.Sort.SortFields.Add _

                                               Key:=Range("C1:C61"), _

                                               SortOn:=xlSortOnValues, _

                                               Order:=xlAscending, _

                                               DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("1º").AutoFilter.Sort

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Range("A1").Select

End Sub

Private Sub Worksheet_Calculate()

    Columns("A:G").Select

    ActiveWorkbook.Worksheets("1º").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("1º").Sort.SortFields.Add Key:=Range("C2:C61"), _

                                                        SortOn:=xlSortOnValues, _

                                                        Order:=xlAscending, _

                                                        DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("1º").Sort

        .SetRange Range("A1:G61")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Range("A1").Select

End Sub