Объединить данные двух таблиц

Private Sub CommandButton1_Click()
Dim File1 'Класс рук
Dim File2 'Староста
n1 = 1100 'не меньше, чем заполнено строк в файле Класс рук
m1 = 1250 'не меньше, чем заполнено строк в файле Староста
n2 = 20 'не меньше, чем заполнено столбцов в файле Класс рук
m2 = 20 'не меньше, чем заполнено столбцов в файле Староста
Dim student As String 'имя ученика
Dim subject As String 'название предмета
Dim i, j, k As Integer
'чтобы можно было использовать переменные номера столбцов
Dim list_temp(26) As String
list_temp(1) = "A"
list_temp(2) = "B"
list_temp(3) = "C"
list_temp(4) = "D"
list_temp(5) = "E"
list_temp(6) = "F"
list_temp(7) = "G"
list_temp(8) = "H"
list_temp(9) = "I"
list_temp(10) = "J"
list_temp(11) = "K"
list_temp(12) = "L"
list_temp(13) = "M"
list_temp(14) = "N"
list_temp(15) = "O"
list_temp(16) = "P"
list_temp(17) = "Q"
list_temp(18) = "R"
list_temp(19) = "S"
list_temp(20) = "T"
list_temp(21) = "U"
list_temp(22) = "V"
list_temp(23) = "W"
list_temp(24) = "X"
list_temp(25) = "Y"
list_temp(26) = "Z"
Dim subjects_count, students_count As Integer 'количество предметов и учеников
subjects_count = 0
students_count = 0
File1 = Application.GetOpenFilename()
If File1 <> False Then
   Workbooks.Open (File1)
   File2 = Application.GetOpenFilename()
   If File2 <> False Then
      Workbooks.Open (File2)
      'Если нашли и открыли оба файла
      For i = 3 To n1 'цикл по скважинам файла Класс рук
          student = Workbooks.Item(2).ActiveSheet.Cells(i, 1).Value 'получаем имя ученика
          If student <> "" And Columns("A:A").Find(student, LookAt:=xlWhole) Is Nothing Then 'если это не пустая ячейка и этого ученика еще нет в исходной таблице
             Cells(i, 1).Value = student 'записываем имя этого студента в первый столбец файла итоговой таблицы
             students_count = students_count + 1
          End If
          For j = 2 To n2 'цикл по предметам файла Класс рук
              subject = Workbooks.Item(2).ActiveSheet.Cells(1, j).Value 'получаем название предмета
              If subject <> "" And Rows(1).Find(subject, LookAt:=xlWhole) Is Nothing Then 'если это не пустая ячейка и этого предмета еще нет в исходной таблице
                 Cells(1, j).Value = subject 'записываем название этого предмета в первую строку файла итоговой таблицы
                 Cells(2, j).Value = "Класс рук"
                 subjects_count = subjects_count + 1
              End If
              Cells(i, j).Value = Workbooks.Item(2).ActiveSheet.Cells(i, j).Value
          Next j
      Next i
      If subjects_count < 27 Then
         col = list_temp(subjects_count + 1)
      Else
         col = "A" + list_temp(subjects_count - 26 + 1)
      End If
      For i = 3 To m1 'цикл по скважинам файла Староста
          student = Workbooks.Item(3).ActiveSheet.Cells(i, 1).Value 'получаем имя ученика
          If student <> "" And Columns("A:A").Find(student, LookAt:=xlWhole) Is Nothing Then 'если это не пустая ячейка и этого ученика еще нет в исходной таблице
             Cells(i, 1).Value = student 'записываем имя этого ученика в первый столбец файла итоговой таблицы
             For k = 2 To subjects_count + 1
                 Cells(students_count + 3, k).Value = 0 'указываем, что в файле Класс рук по этому ученику нет данных
             Next k
             students_count = students_count + 1
             For j = 2 To m2 'цикл по предметам файла Староста
                 subject = Workbooks.Item(3).ActiveSheet.Cells(1, j).Value 'получаем название предмета
                 If subject <> "" And Range("B1:" & col & "1").Find(subject, LookAt:=xlWhole) Is Nothing Then 'если это не пустая ячейка и этого предмета еще нет в исходной таблице в части Староста
                    Cells(1, methods_count + 1 + j).Value = subject 'записываем название этого предмета в первую строку файла итоговой таблицы
                    Cells(2, methods_count + 1 + j).Value = "Староста"
                    subjects_count = subjects_count + 1
                 End If
                 Cells(i + students_count + 3, j + subjects_count + 1).Value = Workbooks.Item(3).ActiveSheet.Cells(i, j).Value
             Next j
          ElseIf Not Columns("A:A").Find(student, LookAt:=xlWhole) Is Nothing Then 'если этот ученик уже был
             student_row = Columns("A:A").Find(student, LookAt:=xlWhole).Row 'запоминаем этого ученика
             For j = 2 To m2 'цикл по предметам файла Староста
                 subject = Workbooks.Item(3).ActiveSheet.Cells(1, j).Value 'получаем название предмета
                 If subject <> "" And Range("B1:" & col & "1").Find(subject, LookAt:=xlWhole) Is Nothing Then 'если это не пустая ячейка и этого предмета еще нет в исходной таблице в части Староста
                    Cells(1, subjects_count + 1 + j).Value = subject 'записываем название этого предмета в первую строку файла итоговой таблицы
                    Cells(2, subjects_count + 1 + j).Value = "Староста"
                    subjects_count = subjects_count + 1
                 End If
                 Cells(student_row, j + subjects_count + 1).Value = Workbooks.Item(3).ActiveSheet.Cells(i, j).Value
             Next j
          End If
      Next i
   End If
End If
End Sub