Example
Names     | grade

Kim       |      45

Joe       |      90

Dim x As Integer
Dim y As Integer

For x = 1 To 6
     If Range("A" + x).Value == "Kim" Then
          y = Range("B" + x).Value
     End If
Next x