How do we remake the program to copy not one value value but with range in column age?

why my program stall with no output?


Option Explicit
Sub Insertdata()
Dim src As Workbook
Dim iAge As Integer
Dim t As Integer
Dim d As Integer
Dim lastrow As Integer
Dim iName As String
Set src=Workbooks.Open("D:\school1\age.xlsm", True, True)
lastrow = ActiveSheet.UsedRange.Rows.Count
t = 2
d = 2
Do Until t = lastrow
iAge = src.Worksheets("Sheet1").Range("B" & t).Value
iName = src.Worksheets("Sheet1").Range("A" & t).Value
Do Until d = lastrow
If Cells(d, "A") = iName Then
ThisWorkbook.Worksheets("Sheet1").Range("B" & d).Value = iAge
d = d + 1
End If
Loop

t = t + 1
Loop
End Sub

The program copy all values from age.xlsm age column to another age column in shchool.xlsm file according to name column. Name is key in tables.

school.xlsm

|A | B |
|:---- |:------:|
|name | age|
|peter1 | |
|jane2 | |
|ted | |
|peter3 | |

age.xlsm

|A |B|
|:---- |:------:|
|name |age|
|mark3| 1,2|
|peter1 | 5 |
|jane2 | 1,5|