[mr.red]

For u = 2 To 4

For i = 466 To 4125

If Cells(u, 8) = Cells(i, 4) Then Cells(u, 27) = Range(Cells(i, 1), Cells(i, 35))

If Cells(u, 8) = Cells(i, 4) Then c = c + 1
if Cells(i, 4)="" then c=1
If c = 2 Then MsgBox (Cells(u, 3))

Next i
Next u

End Sub