Option Explicit
Sub Find_Ijasat()
Dim D As Worksheet, S As Worksheet
Dim Rod%, Ros%, I%, x%, k%
Dim Rg_FD As Range
Dim Rg_Code As Range
Set D = Sheets("Data"): Set S = Sheets("Salim")
Rod = D.Cells(Rows.Count, 2).End(3).Row
Ros = S.Cells(Rows.Count, 2).End(3).Row
D.Range("B3").Resize(Rod, 8).Interior.ColorIndex = xlNone
Set Rg_FD = D.Range("B3:B" & Rod)
If Ros < 6 Then Exit Sub
S.Range("D6").Resize(Ros - 5, 31).ClearContents
For I = 6 To Ros
Set Rg_Code = Rg_FD.Find(S.Cells(I, 2), Lookat:=1)
If Rg_Code Is Nothing Then GoTo Find_Again
x = Rg_Code.Row
For k = 4 To 35
If S.Cells(4, k) = D.Cells(x, 4) Then
S.Cells(I, k) = D.Cells(x, 7)
D.Range("B" & x).Resize(, 8).Interior.ColorIndex = 35
Exit For
End If
Next k
Find_Again:
Next I
End Sub