Use Offset to select offset cell value

[snb]

So @georgi

Don't be cross with me; all you need is this:

Sub M_snb()
  For Each it In Range("D12:D" & Range("A" & Rows.Count).End(xlUp).Row)
    it.offset(,1)= it.Value
    if it=5 then it.Offset(, 1) = it.Offset(, 2).Value
  Next
End Sub

@Aussie

I don't see any daggers.