Hi Mohammed, Here the code (I've tested it on VB Macro Editor on MS Office 2003)

Sub dd()
Dim d1, d3 As Long
Dim d2, d4 As Single 'Single (single-precision floating-point (according to HELP)

For i = 1 To 6112
    d3 = Sheet1.Range("c" & i)
    d4 = Sheet1.Range("e" & i)
    For k = 2 To 21
        d1 = Sheet6.Range("a" & k)
        d2 = Sheet6.Range("h" & k)
        If d1 = d3 And d2 = d4 Then
           Sheet1.Range("j" & i) = Sheet6.Range("b" & k)
           kk = 25
        End If
    Next k
Next i
End Sub