Dear all i have create a code that like VLOOKUP as below , but it run almost 5x mins ?? do any one can help me let its run fast then the stupid one ?? 
Sub Comparation()
Dim I As Long, 
j As Long, 
R As Long, 
TR As Long, 
LR As Long
TR = Sheets("CONS").Range("B" & Rows.Count).End(xlUp).Row
LR = Sheets("OPAR").Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To LR
For j = 2 To TR
If Sheets("OPAR").Cells(I, 1) = Sheets("CONS").Cells(j, 2) Then
Sheets("OPAR").Cells(I, 25) = Sheets("CONS").Cells(j, 4).Value
GoTo Nrow
End If
Next j
Nrow:
Next I
End Sub