Do While IsError(Var.Value) Or Not IsEmpty(Var.Value)
If Not IsError(Var.Value) Then
Set c = .Cells.Find(What:=Var.Value, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows)
If Not c Is Nothing Then
Var.Offset(0, 1) = c.Offset(0, 1)
End If
End If
Set Var = Var.Offset(1, 0)
Loop