VBA: Application.VLookup and, if found, offset

[Nelson78]

Hello everybody.

I'm struggling with the following job.

Looking for a cell10 value in rng1, if the value is present, then overwrite cell10 with the value next to the left relating to the found value in rng1.

Example: cell10 = "abc"
If "abc" is present in rng1 (suppose in cell C27), then cell10 = value in B27

for each cell10 in range
    If Application.WorksheetFunction.CountIf(rng1, cell10) > 0.5 Then ?????
next cell10