Sub lab()
Dim i As Integer
    For i = 1 To 5
    Worksheets("Sheet1").Range("A" & i).Value = InputBox("enter last name student - " & i)  ' тут на вводим фамілію на листок 1
    Worksheets("Sheet2").Range("A" & i).Value = InputBox("enter first name student - " & i) ' тут вводим імя на листок 2
    Next i

    For i = 2 To 6
    Worksheets("Sheet3").Range("B" & i).Value = Worksheets("Sheet1").Range("A" & i).Value & " " & Worksheets("Sheet2").Range("A" & i).Value  ' записуємо дані з 1 листка + пробєл + дані з 2 листка
    Worksheets("Sheet3").Range("A" & i).Value = i - 1 ' в сусідній колонці запишемо номер в списку
    Next i
End Sub


'Так як в мене vb на англ мові в мене замість "Лист1" стоїть "Sheet1" і тд. Не забудь поміняти