Try:
Code:
Sub GetColRef()
Dim i As Long, j As Long, k As Long, Rng As Range
With ThisWorkbook.Worksheets("Data")
j = .Range("A" & .Rows.Count).End(xlUp).Row
For i = 2 To j
Set Rng = ThisWorkbook.Worksheets("Report").Cells.Find(what:=Right(.Cells(i, 2).Value, 8), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
If Rng Is Nothing Then
.Cells(i, 5).Value = ""
Else
For k = 1 To i
If Rng.Offset(k, 0).Interior.ColorIndex = 6 Then
.Cells(i, 5).Value = Rng.Offset(k, 0).Value
Exit For
ElseIf Rng.Offset(-k, 0).Interior.ColorIndex = 6 Then
.Cells(i, 5).Value = Rng.Offset(-k, 0).Value
Exit For
End If
Next
End If
Next
End With
End Sub