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

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

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


For i = 1 To numGrads

    Worksheets("graduates").Activate
    
    Range("A1").Offset(i, 0).Select
    uId = Range("A1").Offset(i, 0).Value
    
    Worksheets("all").Activate
        
        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
    

    Worksheets("graduates").Activate
    
    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