Add GPA, Home Country, and Gender from All Students to Graduates

Option Explicit

Sub gpaAndCountry()

Dim uId As String

Dim gpa As Single
Dim country As String
Dim gender As String
Dim numGrads As Integer
Dim numAll As Integer
Dim i As Integer
Dim j As Integer

numGrads = Range(Range("A1"), Range("A1").End(xlDown)).Rows.Count - 1

numAll = Range(Range("A1"), Range("A1").End(xlDown)).Rows.Count - 1

For i = 1 To numGrads

    Range("A1").Offset(i, 0).Select
    uId = Range("A1").Offset(i, 0).Value
        For j = 1 To numAll
            Range("B1").Offset(j, 0).Select
            If Range("B1").Offset(j, 0).Value = uId Then
                Range("L1").Offset(j, 0).Select
                gpa = Range("L1").Offset(j, 0).Value
                Range("M1").Offset(j, 0).Select
                country = Range("M1").Offset(j, 0).Value
                Range("N1").Offset(j, 0).Select
                gender = Range("N1").Offset(j, 0).Value
                Exit For
              End If
        Next j

    Range("F1").Offset(i, 0).Select
    Range("F1").Offset(i, 0).Value = gpa
    Range("G1").Offset(i, 0).Select
    Range("G1").Offset(i, 0).Value = country
    Range("H1").Offset(i, 0).Select
    Range("H1").Offset(i, 0).Value = gender
Next i

End Sub