Solved: Loop to Get and put values

[sujittalukde]

Thanks for the replies. In the mean time I solved the same with this code.

Sub nameandackn1()
Range("A1").Select
'Range("C13:C16").Select
Selection.ClearContents
Srow_I = 13
For i = Srow_I To 16
ename = Range("a" & i).Value
q = Range("B" & i).Value
    For j = 1 To 10
        Range("A" & j).Select
        ActiveCell.Offset(1, 0).Select
        If ActiveCell.Value = ename And ActiveCell.Offset(0, 2).Value = q Then
            akn = ActiveCell.Offset(0, 3).Value
           Range("a" & i).Offset(0, 2).Value = akn
        End If
    Next j
Next i
End Sub